Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Concise,-exec -e'f() and g()'
1  <0> enter v
...
9      <1> entersub[t4] vKS/TARG
a  <@> leave[1 ref] vKP/REFC
-e syntax OK
  2. or download this
    $ perl -MO=Concise,-exec -e'if (!f()) { g() }'
1  <0> enter v
...
9      <1> entersub[t4] vKS/TARG
a  <@> leave[1 ref] vKP/REFC
-e syntax OK