sub name { my ($self, $name) = @_; $self->{name} = $name if $name; return $self->{name}; }