Select Code to Download

>perl -MO=Concise,-exec,f -e"sub f { return 1 if 0 }"
main::f:
...
2  <$> const[IV 0] s/SHORT
3  <1> leavesub[1 ref] K/REFC,1
-e syntax OK

>perl -MO=Concise,-exec,f -e"sub f { return 1 if $c }"
main::f:
...
6      <@> return K
7  <1> leavesub[1 ref] K/REFC,1
-e syntax OK