sub A::func { print "called by: ", ref $_[0] || $_[0] }

@B::ISA = 'A';

my $o = bless [] => 'B';
$o->func;

__output__

called by: B