Help for this page

Select Code to Download


  1. or download this
    my $scalar;
test();

...
    normal=42;
    print $scalar;
}
  2. or download this
    perl -MO=Concise,-exec,test,normal,proxy,nlv lvalue.pl
main::test:
1  <;> nextstate(main 6 concise.pl:16) v   #    nlv();
...
r  <0> padsv[$x:4,5] sRM*/LVINTRO
s  <2> sassign sKS/2
t  <1> leavesub[1 ref] K/REFC,1