Opened by JackBauer at 2008-05-07 14:45
User since
2006-02-17
628 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2006-02-17
628 Artikel
BenutzerIn
Dazu musst du die Funktion anders deklarieren:
und hier darf die letzte Zeile nicht mit return $self->{count}; aufhören!
[EDIT]http://search.cpan.org/dist/perl/pod/perlsub.pod#L...
WARNING: Lvalue subroutines are still experimental and the implementation may change in future versions of Perl.
Code (perl): (dl
)
1 2 3 4 5
sub count :lvalue{ my $self=shift; if (@_) { $self->{count} += shift } $self->{count}; }
und hier darf die letzte Zeile nicht mit return $self->{count}; aufhören!
[EDIT]http://search.cpan.org/dist/perl/pod/perlsub.pod#L...
WARNING: Lvalue subroutines are still experimental and the implementation may change in future versions of Perl.