Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
BEGIN { %{*NewFoo::} = %{*Foo::} }

NewFoo::bar();  # calls Foo::bar();
  2. or download this
    ...

%{*NewFoo::} = %{*Foo::};

eval q|NewFoo::bar()|;  # calls Foo::bar();