Help for this page
eval "sub $action { my \$pkg = shift; return(\$pkg->{\"$action\"}); }" +;
{ my $action = "whatever"; no strict 'refs'; *{$action} = sub { my $pkg = shift; return $pkg->{$action}; }; }
www.com | www.net | www.org
No recent polls found
