Select Code to Download

>perl -MO=Concise,f -e"sub f { return $x }"
main::f:
...
-           <1> ex-rv2sv sK/1 ->4
3              <#> gvsv[*x] s ->4
-e syntax OK

main::f:
3  <1> leavesub[1 ref] K/REFC,1 ->(end)
...
-           <1> ex-rv2sv sK/1 ->-
2              <#> gvsv[*x] s ->3
-e syntax OK

>perl -MO=Concise,f -e"sub f { $x }"
main::f:
...
-        <1> ex-rv2sv sK/1 ->-
2           <#> gvsv[*x] s ->3
-e syntax OK

5.8.8:
           Rate implicit explicit
...
            Rate explicit implicit
explicit 1000/ms       --      -0%
implicit 1004/ms       0%       --

use strict;
use warnings;
...
cmpthese($OUTER, \%tests);
print("\n");
print("Multiply by $INNER to get real rate.\n");