Thread Variablen an Package übergeben (7 answers)
Opened by Muffi at 2012-06-01 16:33

Gast Muffi
 2012-06-01 17:06
#158701 #158701
Auch ne Möglichkeit, muss ich mir noch durchdenken.

Der komplette Aufbau schaut so aus, ich hab mir nen kleiner OR-Mapper geschrieben.

main (alle Module Eigenbau)
Code (perl): (dl )
1
2
3

use SQL;
SQL::connect();
require User;


Code (perl): (dl )
1
2
3
4
5
6
7
8
9

package User;
use ORM;
use base ORM;

__PACKAGE__->ORM(
        fields => undef, # undef = autodetect
        primary => 'ID',
        table => User',
)


Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11

package ORM;

use SQL;

sub ORM {
    ...
    for my $field (SQL::select(...)) {
        ....
        *$field_sub_name = sub { ...... }
    }
}


und der setzt dann dit getter und setter für die Felder.
mit einem späteren ORM->init entstehen Funktionen in allen Klassen, die von ORM erben halt erst später.
Last edited: 2012-06-01 17:07:52 +0200 (CEST)

View full thread Variablen an Package übergeben