DBI an Package übergeben

[Struppi]

06 sub new {
07  my $self=shift;
08  my $dbh=shift;
09  my $ref={};
10  $ref->{sessionLength}=48;
11  $ref->{dbh}=$dbh;
12  bless($ref, $self);
13  $ref;
14 }

Das geht auch einfacher:

sub new {  
 my $proto = shift;  
 return bless {  
 dbh => (shift || die "bla"),  
 sessionLength => 48  
 }, ref $proto || $proto ;  
}  

Das ref ist wichtig, falls das Objekt mal weiter vererbt werden sollte

mit use strict;

Can't use string ("abc") as a HASH ref while "strict refs" in use at /x/y/z/abc.pm line 52.

Du machst irgendwas falsch bei dem Aufruf, was steht in Zeile 52?

Struppi.