$ perl -MO=Concise,-src peachy
8  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
# 1: {package DouBloon }
2     <;> nextstate(main 2 peachy:1) v:{ ->3
5     <2> leaveloop vK/2 ->6
3        <{> enterloop(next->5 last->5 redo->4) v ->4
4        <0> stub v ->5
# 2: my DouBloon $x;
6     <;> nextstate(main 2 peachy:2) v:{ ->7
7     <0> padsv[$x:2,3] vM/LVINTRO ->8
peachy syntax OK
[download]

Up voted for declaring the package before using the type ! :)

> peachy syntax OK

Super peachy 👍🏼

Cheers Rolf
_{(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery FootballPerl is like chess, only without the dice}