Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse -e"BEGIN{ my $x = 12345; *Foo = sub(){ $x } }; print 
+Foo"
sub BEGIN {
...
}
print 12345;
-e syntax OK
  2. or download this
    perl -MO=Deparse -e"{ my $x = 12345; *Foo = sub(){ $x }; } print Foo()
+"
{
...
}
print Foo();
-e syntax OK