sub name { my $self = shift; return $self->{name} unless @_; $self->{name} = shift; return $self; }