Hashref deref - #102077 (Allgemeines zu Perl)

Struppi

2007-11-08 22:37

User since
2006-02-17
628 Artikel
BenutzerIn

Deine Ursprüngliche version enthält einen Fehler:

Code (perl): (dl )

load(@_, $self) if @_;

üblicherweise ist $self das erste Argument.

Code (perl): (dl )

1
2

sub load {
    my $self = shift;

und genau das erwartet deine Funktion auch.

Ohne Data::Dumper kann das Debuggen lästig werden und es ist auch einfach.

Code (perl): (dl )

1
2

sub load {
print Dumper \@_;

so hättest du gesehen was deine Funktion für Parameter bekommt.

Das was du da bastelst sieht für mich so aus, als ob du eher sowas wie http://search.cpan.org/~kasei/Class-Accessor-0.31/... suchst

Es gibt aber eine Reihe von Modulen die sowas ähnliches machen. Du erfindest gerade das Rad neu.