Help for this page
package Foo; my $coderef = sub { no strict 'refs'; ${ (caller)[0] . "::global" } }; $global = 'in Foo'; ... $global = 'in Bar'; print &$coderef, "\n";
www.com | www.net | www.org
No recent polls found