Select Code to Download

#!/usr/bin/perl -w
#
...
                  Rate   anon_sub_qr anon_sub_eval
anon_sub_qr   136414/s            --          -13%
anon_sub_eval 156308/s           15%            --

sub anon_sub_qr {
  my $p   = shift;
...
                  Rate anon_sub_eval   anon_sub_qr
anon_sub_eval 158363/s            --          -30%
anon_sub_qr   225783/s           43%            --