package MyClass;
sub new { ... }
sub f { ... }
sub g { ... }
sub h { ... }
sub mymethod {
  my ($self, $mref)=@_;
  # Assume $mref is one of \&f, \&g or \&h
  ...
}