DBI an Package übergeben

[Perl Anfänger]

Hi

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.

sub test_1 {  
  my $self=shift;  
  my $sth;  
  $self->{db} = DBI->connect($DSN, $USER, $PASS)  || die "mist...";  
  $sth = $self->{db}->prepare('SELECT * FROM xyz;') || die "hm...";  
  $return = $sth->execute() || die "nix geht...";  
  $sth->finish();  
}

Danke!