gistfile1.pl

use mro 'c3';

package Foo {
    our @ISA = qw/Bar/;
    use Sub::Name qw/subname/;
    *foo = \&Bar::foo;
    subname bar => \&foo;
};

package Bar {
    our @ISA = qw/Baz/;
    sub foo { shift->next::method(@_) }
}

package Baz {
    sub bar { warn 43 }
    sub foo { warn 42 }
}

Foo->foo;