Select Code to Download

{
   package TestA;
...

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