sub foo { my $self = shift; @_ ? ($self->{foo} = shift) : $self->{foo}; } #### &blah( foo=>2, bar=>'Fred');