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