#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw(:all);
use Params::Validate qw(:all);

sub ParamsValidateAssert {
    my ($test) = validate_pos( @_,
                        { 
                            type => SCALAR,
                            callbacks => { 'must be less than 50' => sub { $_[0] < 50 }},
                        }
                    );
    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, {    
    'ParamsValidateAssert' => sub { eval { ParamsValidateAssert($_) } for (@nums) },    
    'OrAssert'             => sub { eval { OrAssert($_)             } for (@nums) },   
});