package MY;

sub AUTOLOAD {
    my $self = shift;
    our $AUTOLOAD;
    my $method = caller() . "::$AUTOLOAD";
    $self->$method(@_);
};