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