Select Code to Download

#!/usr/bin/perl

use strict;
...
        double => \&double
    }
);

$ perl bm_string_quoting.pl 2> /dev/null
           Rate single double
single 476308/s     --    -1%
double 481758/s     1%     --

#!/usr/bin/perl

use strict;
...
        double => \&double
    }
);

$ perl bm_string_quoting.pl 2> /dev/null
           Rate double single
double 474650/s     --    -2%
single 483537/s     2%     --

#!/usr/bin/perl

use Benchmark qw(cmpthese);
...
        double => \&double
    }
);

perl bm_string_quoting.pl 2> /dev/null
           Rate single double
single 491116/s     --    -2%
double 502236/s     2%     --

#!/usr/bin/perl

use Benchmark qw(cmpthese);
...
    }
);
sub double { warn "This is a test"; }

$ perl bm_string_quoting.pl 2> /dev/null
           Rate double single
double 449265/s     --    -7%
single 481758/s     7%     --

#!/usr/bin/perl

use Benchmark qw(cmpthese);
...
);
sub double { warn "This is a test"; }
sub single { warn 'This is a test'; }

$ perl bm_string_quoting.pl 2> /dev/null
           Rate single double
single 459485/s     --    -0%
double 460340/s     0%     --