Select Code to Download

use warnings;
use strict;
...
print refto(\&foo), "\n";             # prints "main::foo"
print refto(\&Foo::Bar::blah), "\n";  # prints "Foo::Bar::blah"
print refto(sub{}), "\n";             # prints "main::__ANON__"