Help for this page
#!/usr/bin/perl ... BEGIN { %{*NewFoo::} = %{*Foo::} } NewFoo::bar(); # calls Foo::bar();
... %{*NewFoo::} = %{*Foo::}; eval q|NewFoo::bar()|; # calls Foo::bar();