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