eval_goto_bench.pl

eval_goto_bench.pl

use Benchmark qw(cmpthese timethese);

cmpthese timethese(100000, {
    eval => sub {
        eval {
            die;
        };
        if($@){}
    },
    goto => sub {
        goto LABEL;
        LABEL:
    },
});

$ perl eval_goto_bench.pl

Benchmark: timing 100000 iterations of eval, goto...
      eval:  0 wallclock secs ( 0.15 usr +  0.00 sys =  0.15 CPU) @ 666666.67/s (n=100000)
            (warning: too few iterations for a reliable count)
      goto:  0 wallclock secs ( 0.01 usr +  0.00 sys =  0.01 CPU) @ 10000000.00/s (n=100000)
            (warning: too few iterations for a reliable count)
           Rate  eval  goto
eval   666667/s    --  -93%
goto 10000000/s 1400%    --