in new() eine andere Methode aufrufen

[bloonix]

Hallo,

sub new {

my $self = shift;
  return bless {
    db => shift || die('bla'),
    test => '',
  }, ref $self || $self;
}

>   
> wie kann ich in dieser Methode z.b. eine Methode1 aufrufen, welche die Eigenschaft "test" mit Daten füllt?  
  
Zum Beispiel:  
  
~~~perl
sub new{  
    @_ == 2 or die 'Usage: class->new( $db )';  
    my ($class, $db) = @_;  
    my $self = bless { db => $db }, $class;  
    $self->{test} = $self->methode1;  
    return $self;  
}

ps. kann mir jemand ein gutes Buch über Perl empfehlen?

Danke

Ich kann dir die http://board.perl-community.de/@Perl-Community empfehlen und auch <http://perldoc.perl.org/@die Perl-Dokumentation>!