$Foo::foo = \&Foo::bar;
print $Foo::foo->(); # Foo