Select Code to Download

C:\test>perl -MO=Concise -E"my$x=-1; $x = $x<0?0:$x;"
e  <@> leave[1 ref] vKP/REFC ->(end)
...
a              <$> const[IV 0] s ->b
b              <0> padsv[$x:46,47] sRM* ->c
-e syntax OK