Help for this page

Select Code to Download

Select or download this

$ perl -MO=Deparse -e '{use strict; my $a = 1}'
{
    use strict 'refs';
    my $a = 1;
}

Select or download this

use Benchmark qw(:all);
cmpthese( 10000000, {
...
             Rate    with without
with    3460208/s      --     -9%
without 3787879/s      9%      --