#!perl -l

package A;

sub foo { "A::foo" }
sub bar { 'A::bar' }

package C;
@ISA = 'A';

sub bar { 'bar' }

package main;
use B 'svref_2object';

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