Unfortunately, this doesn't work in vanilla Perl:

#!/usr/bin/perl
use strict;
use warnings;

sub Foo::method { return "Foo" }

BEGIN { @Bar::ISA = qw( Foo ); }

sub Bar::method { goto $_[ 0 ]->SUPER::can( 'method' ); }

print Bar->method(), "\n";
[download]

This is an infinite loop, because it dispatches to UNIVERSAL::can with $_[ 0 ] as the first parameter. This means that adorning the call with SUPER:: doesn't make a difference here. And since the package for $_[ 0 ] is Bar, can() finds Bar::method, so round and round we go…

sub SUPER::can {
    my $caller = ( caller 1 )[ 3 ];
    no strict 'refs';
    local *$caller;
    return UNIVERSAL::can( @_ );
}
[download]

See replies.

Makeshifts last the longest.