sub AUTOLOAD
{
    my $self = $_[0];
    my $m = something_clever_returning_method_name();
    my $sub = $self->can($m) || $self->can("AUTOLOAD");
    die "Can't call $m on $self" unless defined($sub);
    goto &$sub;
}