DBI an Package übergeben

[Perl Anfänger]

Hi

bei "my $test1=test->new($dbh);" erhalte ich folgende Fehlermeldung

Can't call method "prepare" on an undefined value at /x/y/z/test.pm line 46.

Wohl kaum.

wie meinst du das "wohl kaum?"
die Meldung habe ich mir nicht aus'n Finger gezogen ;-)

new sieht wie folgt aus
sub new {
  my $self=shift;
  my $dbh=shift;
  my $ref={};

bless($ref, $self);

$ref->{db}=$dbh;

$ref;
}

Wo ist hier ein Aufruf von prepare()?

hier ist er
sub test_1 {
  my $self=shift;
  $sth = $self->{db}->prepare('SELECT * FROM xyz;') || die "hm...";
  $return = $sth->execute() || die "nix geht...";
  $sth->finish();
}

Danke!