package Lvalue::GetSet;

use Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(get set);

sub get(&@) :lvalue {
    unshift @_, 'get';
    goto &getset;
}

sub set(&@) :lvalue {
    unshift @_, 'set';
    goto &getset;
}

sub getset :lvalue {
    if(@_ == 2) {
        return @_;
    }
    elsif(@_ == 4) {
        my $var;
        tie $var, 'Lvalue::GetSet::Tie', @_;
        $var;
    }
    else {
        die "can't happen";
    }
}


package Lvalue::GetSet::Tie;

sub TIESCALAR {
    my($pkg, %obj)=@_;
    bless \%obj, $pkg;
}

sub FETCH {
    $_[0]->{get}->();
}

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

##</code><code>##

sub name {
    my $me=shift;
    get {
       $me->{name};
    }
    set {
       die "Invalid name" unless $_[0] =~ /^(\w+)$/;
       $me->{name} = $1;
    }
}