Select Code to Download

sub AUOTLOAD
{
  my $fn = something_clever_returning_fn_reference;
  goto &$fn;
}

sub AUOTLOAD
{
...
  my $m = something_clever_returning_method_name();
  $self->$m(@_);
}

sub AUTOLOAD
{
...
  die "Can't call $m on $_[0]" unless defined($sub);
  goto &$sub;
}