DBI an Package übergeben

[Perl Anfänger]

Sollte funktionieren. Es muss was anders falsch sein.

wenn ich in der Methode test_1 direkt über der prepare ein
$self->{db} = DBI->connect($dsn, $user, $password) || die "can't connect, errmsg = $DBI::errstr";
einfüge, kommt die Fehlermeldung nicht mehr.

Das ist klar, erklärt aber immer noch nicht warum du die Meldung in deinem ersten Beispiel bekommst, da es so funktionieren muss wie du es ursprünglich geplant hast.

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

01 package pdadminSession;
02
03 use DBI;
04 use strict;
05
06 sub new {
07  my $self=shift;
08  my $dbh=shift;
09  my $ref={};
10  $ref->{sessionLength}=48;
11  bless($ref, $self);
12  $self->{dbh}=$dbh;
13  $ref;
14 }

Kannst du mir einen Tipp geben?

Danke!