return $self->myFunction;

##</code><code>##

# Pick a method, wrap it up an a coderef and return it
sub method_chooser {
  my $self = shift;
  return (rand % 2) : ? sub { $self->runAlice; } : sub { $self->runCharlie };
}

sub do_stuff {
  my $self = shift;
  # Dunno what the chooser will choose
  my $code_ref = $self->method_chooser();
  # But run it all the same
  $code_ref->();
}