Select Code to Download

given (1)

>perl -MO=Concise -e"my $data = 1; print $data;"
a  <@> leave[1 ref] vKP/REFC ->(end)
...
3        <0> pushmark s ->4
4        <$> const[IV 1] s ->5            <-- This is a constant.
-e syntax OK

>perl -MO=Concise -e"my $data = 1; if ($data) { print 'moo' }"
c  <@> leave[1 ref] vKP/REFC ->(end)
...
3           <0> pushmark s ->4
4           <$> const[PV "moo"] s ->5
-e syntax OK