Select Code to Download

$self->SomeClass::method(...);

#!/usr/bin/env perl

...
}

Monkey->foo;

sub foo {
    my $class = shift;
...
    my $gp_method   = $grandparent->can('foo');
    $class->$gp_method(@_);
}

sub foo {
    my $class = shift;
...
    require mro;
    $class->${\ $class->mro::get_linear_isa->[2]->can("foo") }(@_);
}