Help for this page
package Lvalue::GetSet; use Exporter; ... sub STORE { $_[0]->{set}->($_[1]); }
sub name { my $me=shift; get { ... $me->{name} = $1; } }
www.com | www.net | www.org
No recent polls found