http://qs321.pair.com?node_id=691726


in reply to Finding inherited object methods

Use Sub::Information:

my $coderef  = $foo->can( 'bar' );
my $class = Sub::Information->new( $coderef )->package();

[download]

In Section Seekers of Perl Wisdom