You might like the results of this subroutine better:
use B;
collectCode(\%CODE); # collect all subroutines
collectCode(\%CODE,\%Term::,"Term::"); # collect from package Term
sub collectCode
{
my ($CODE,$pkg,$prefix) = @_;
$pkg = \%:: unless defined($pkg);
$prefix = "" unless defined($prefix);
foreach my $key (keys %$pkg)
{
if ($key =~ m/^\w+::$/)
{
collectCode($CODE,$pkg->{$key},"$prefix$key")
unless $prefix eq "" && $key eq "main::";
} else {
my $cv;
if (ref($pkg->{$key}) eq "CODE")
{
$cv = B::svref_2object($pkg->{$key});
} elsif (reftype(\$pkg->{$key}) eq "GLOB"
&& defined(*{$pkg->{$key}}{CODE})) {
$cv = B::svref_2object(*{$pkg->{$key}}{CODE});
}
$CODE->{"$prefix$key"} = { file => $cv->START->file,
line => $cv->START->line }
if defined($cv) && ref($cv->START) ne "B::NULL";
}
}
}