Select Code to Download

#!/usr/bin/perl

...
    'CarpAssert' => sub { eval { CarpAssert($_) } for (@nums) },    
    'OrAssert'   => sub { eval { OrAssert($_)   } for (@nums) },   
});

Benchmark: timing 10000 iterations of CarpAssert, OrAssert...
CarpAssert: 11 wallclock secs ( 9.92 usr +  0.04 sys =  9.96 CPU) @ 10
+04.02/s (n=10000)
...
             Rate CarpAssert   OrAssert
CarpAssert 1004/s         --       -28%
OrAssert   1395/s        39%         --

Benchmark: timing 10000 iterations of CarpAssert, OrAssert...
CarpAssert:  9 wallclock secs ( 6.50 usr +  0.03 sys =  6.53 CPU) @ 15
+31.39/s (n=10000)
...
             Rate   OrAssert CarpAssert
OrAssert   1484/s         --        -3%
CarpAssert 1531/s         3%         --

sub noOpError {}
sub OrAssert {
...
    ($test < 50) || noOpError("Test is wrong");
    return $test;
}

Benchmark: timing 10000 iterations of CarpAssert, OrAssert...
CarpAssert:  6 wallclock secs ( 6.54 usr +  0.00 sys =  6.54 CPU) @ 15
+29.05/s (n=10000)
...
             Rate   OrAssert CarpAssert
OrAssert   1403/s         --        -8%
CarpAssert 1529/s         9%         --