#!perl -l

$y='main';$A::y='A';$C::y='C';

sub A::foo { $y }
sub A::bar { $y }

@C::ISA = 'A';

sub C::bar { $y }

use B 'svref_2object';

$x = bless {}, 'C';
for (qw(foo bar)) {
    print "$_ -> ", $x->$_, " from ", svref_2object(UNIVERSAL::can($x, $_))->GV->STASH->NAME;
}