#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw(:all);
use Carp::Assert;

sub CarpAssert {
    my ($test) = @_;
    assert($test < 50) if DEBUG;
    return $test;
}

sub OrAssert {
    my ($test) = @_;
    ($test < 50) || die "Test is wrong";
    return $test;
}

my @nums = map { ((rand() * 100) % 50) } (0 .. 100);

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