Select Code to Download

# Somewhere inside the object's package
sub get_set :lvalue {
...
my $obj = Some::Object->new();
$obj->get_set( 'name' ) = 'Limbic';
print "Hello, ", $obj->get_set( 'name' ), "\n";

sub get_set :lvalue {
    my ($self, $key) = @_;
    my $junk;
    key_ok( $key ) ? $self->{ $key } : $junk;
}