Select Code to Download

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

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