Select Code to Download

#!/usr/bin/perl
use strict;
...
sub Bar::method { goto $_[ 0 ]->SUPER::can( 'method' ); }

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

sub SUPER::can {
    my $caller = ( caller 1 )[ 3 ];
...
    local *$caller;
    return UNIVERSAL::can( @_ );
}