Select Code to Download

use Carp;
sub name {
...
  }
  return $self->{name};
}

sub set_name { 
    my $self = shift; 
...
    if (@_) { warn "Attempt to set value in get" }
    return $self->{name};
}

my $val = $obj->set_name(@foo);

die "No arguments in set_name()" unless @_;