#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw(cmpthese);
my $tests = -5;
sub single { warn 'This is a test'; }
sub double { warn "This is a test"; }
cmpthese(
    $tests, 
    { 
        single => \&single,
        double => \&double
    }
);

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw(cmpthese);
my $tests = -5;
sub double { warn "This is a test"; }
sub single { warn 'This is a test'; }
cmpthese(
    $tests, 
    { 
        single => \&single,
        double => \&double
    }
);

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl

use Benchmark qw(cmpthese);
my $tests = -5;
sub double { warn "This is a test"; }
sub single { warn 'This is a test'; }
cmpthese(
    $tests, 
    { 
        single => \&single,
        double => \&double
    }
);

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl

use Benchmark qw(cmpthese);
my $tests = -5;
sub single { warn 'This is a test'; }
cmpthese(
    $tests, 
    { 
        single => \&single,
        double => \&double
    }
);
sub double { warn "This is a test"; }

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl

use Benchmark qw(cmpthese);
my $tests = -5;
cmpthese(
    $tests, 
    { 
        single => \&single,
        double => \&double
    }
);
sub double { warn "This is a test"; }
sub single { warn 'This is a test'; }

##</code><code>##

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