Help for this page
package Person; use strict; ... NAME => undef, AGE => undef };
my $closure = sub { my $field = shift; @_ and $self->{$field} = shift; $self->{$field}; };
bless $closure, $class; $closure; }
sub name { &{ $_[0] }("NAME", @_[1 .. $#_ ] ) } sub age { &{ $_[0] }("AGE", @_[1 .. $#_ ] ) }
use strict; use Person; ... $person->age(22); print $person->name, " is ", $person->age, " years old.\n";
www.com | www.net | www.org
No recent polls found