Help for this page

Select Code to Download

Select or download this

$ perl <<EOF
package Foo::Bar;
print sub { local *__ANON__ = "boo"; (caller(0))[3] }->();
...
print sub { local *__ANON__ = "Foo::Zip::boo"; (caller(0))[3] }->();
EOF
Foo::Zip::boo