~ $ perl -MO=Concise  -e'sub t {}; t()'

6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter v ->2
2     <;> nextstate(main 3 -e:1) v:{ ->3
5     <1> entersub vKS ->6
-        <1> ex-list K ->5
3           <0> pushmark s ->4
-           <1> ex-rv2cv sK/1 ->-
4              <#> gv[IV \&main::t] s ->5
-e syntax OK  
##</code><code>##

~ $ perl -MO=Concise  -e't();'                       
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter v ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
5     <1> entersub[t2] vKS/TARG ->6
-        <1> ex-list K ->5
3           <0> pushmark s ->4
-           <1> ex-rv2cv sK/1 ->-
4              <#> gv[*t] s/EARLYCV ->5
-e syntax OK
~ $