$self->get ('name');

...

sub get {
   my ($self, $param) = @_;

   return undef if ! exists $self->{$param};
   return $self->{$param};
}