Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Concise -e 'X: next X'
4  <@> leave[1 ref] vKP/REFC ->(end)
...
2     <;> nextstate(X: main 1 -e:1) v:{ ->3
3     <"> goto("X") v ->4
-e syntax OK
  2. or download this
    $ perl -wE 'sub f() { next X }; X: for (1) { f }'
Exiting subroutine via next at -e line 1.