Select Code to Download

package Lvalue::GetSet;

use Exporter;
...
sub STORE {
    $_[0]->{set}->($_[1]);
}

sub name {
    my $me=shift;
    get {
...
       $me->{name} = $1;
    }
}