{
   package TestA;
   sub foo {}
   sub bar;
   sub baz() { time }
   sub moo {}
}

{
   package TestB;
   our @ISA = 'TestA';
   our $bar = 1;
}

use Data::Dumper;
print Dumper get_coderefs_href $_ for qw( TestA TestB );