sub new {
   my ($class, $name) = @_;

   my $self = bless({
      name    => $name,
      getName => 'showName',
   }, $class);

   return $self;
}

sub getName {
   my $self   = $_[0];
   my $method = $self->{getName};
   $self->$method(@_);
}

$self->getName();