#!/usr/bin/perl -l

package PkgA;

sub fooA {}
sub barA {}

package PkgB;

use base "PkgA";
sub fooB {}

package PkgC;

use base "PkgB";
sub barC {}


package main;

use Class::Inspector;

print for @{ Class::Inspector->methods('PkgC', 'full') };

__END__
PkgA::barA
PkgC::barC
PkgA::fooA
PkgB::fooB