#! perl
use strict;
use warnings;
use Benchmark qw( cmpthese );

cmpthese
(
    1e7,
    {
        return_value => 'exit(1) if undef_on_error()',
        exception    => 'eval { die_on_error(); }; exit(1) unless $@;',
    }
);

sub undef_on_error
{
    return;
}

sub die_on_error
{
    die 'exception';
}

##</code><code>##

22:28 >perl 1431_SoPW.pl
                  Rate    exception return_value
exception     189072/s           --         -97%
return_value 5927682/s        3035%           --

22:29 >