sub {goto \&{$#_ ? $set : $get}};

##</code><code>##

sub { my $self = shift; @_ ? $self->$set(@_) : $self->$get(@_) };

##</code><code>##

sub { goto &{$_[0]->can($#_ ? $set : $get)} };