...

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

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