5 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
package staff_db;
my $dbh = &get_dbh(); # Klassenweit?
sub new {
my $class = shift;
$class = ref($class) || $class;
my $self = {};
$self->{dbh} = &get_dbh(); # im Konstruktor?
bless($self, $class);
return $self;
}
1;
5 Einträge, 1 Seite |