sub Foo::MY::method { ... };

sub foo {
    my $self = shift;
    $self->MY::method();
};