http://stackoverflow.com/questions/1426501#1426689

Perl eval benchmark

#!/usr/bin/perl

use Modern::Perl;
use Benchmark 'cmpthese';

sub with_eval
{
    eval
    {
        my ($a, $b) = (2, 4);
        my $c = $a+$b;
    }
}

sub without_eval
{
    my ($a, $b) = (2, 4);
    my $c = $a+$b;
}

cmpthese(10_000_000, {
    'with eval' => \&with_eval,
    'without eval' => \&without_eval
});

__DATA__
$ perl eval.pl
                  Rate    with eval without eval
with eval    1862197/s           --         -25%
without eval 2493766/s          34%           --