sub thing { my ($self) = @_; return $self->name; } #### sub name { return $_[0]->{name}; } #### sub name { return shift->{name}; }