HTTP::Message などで使われているアクセッサ実装ヘルパー

elem.pl

sub foo { shift->_elem('_foo',  @_); }
sub bar { shift->_elem('_bar',  @_); }

sub _elem
{
    my $self = shift;
    my $elem = shift;
    my $old = $self->{$elem};
    $self->{$elem} = $_[0] if @_;
    return $old;
}