Select Code to Download

package Parent;
sub foo { 1 }
...

print join(", ", grep defined &{ $pkg . "::$_" }, keys %{ $pkg . '::' 
+}), "\n";
print join(", ", grep $pkg->can( $_ ), keys %{ $pkg . '::' }), "\n";