Select Code to Download

package Parent;
sub foo { print "foo in parent(@_)\n"; };
...
eval { Child->foo(); }; warn $@ if $@;
eval { Child::bar(); }; warn $@ if $@;
eval { Child->bar(); }; warn $@ if $@;