Help for this page

Select Code to Download


  1. or download this
    sub {goto \&{$#_ ? $set : $get}};
  2. or download this
    sub { my $self = shift; @_ ? $self->$set(@_) : $self->$get(@_) };
    
  3. or download this
    sub { goto &{$_[0]->can($#_ ? $set : $get)} };