#!/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";

##</code><code>##

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