sub field { my ($self,$val) = @_; $self->{field} = $val if defined $val; ... }