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