Select Code to Download

$ perl -MO=Concise -e '
my @tokens = split /\:\:/, $ARGV[0];
return ( q[], $tokens[0] ) if scalar( @tokens ) == 1;
...
my $function = pop @tokens;
return ( join( q[::], @tokens), $function );
'

1c <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
...
18          <0> padav[@tokens:1,3] l ->19
1a       <0> padsv[$function:2,3] ->1b
-e syntax OK

17 <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
...
-                             <0> ex-const s ->-
8                          <$> const(IV 0) s ->9
-e syntax OK

                 Rate functional_3 functional_2 imperative_3 functiona
+l_1 imperative_2 imperative_1
functional_3 245059/s           --         -12%         -16%         -
+24%         -36%         -54%
...
functional_1 321554/s          31%          16%          10%          
+ --         -17%         -39%
imperative_2 385506/s          57%          38%          32%          
+20%           --         -27%
imperative_1 531129/s         117%          91%          82%          
+65%          38%           --