Data::Validator vs Data::Util

bench.pl

#!/usr/bin/env perl
use 5.12.1;
use Data::Validator;
use Data::Util;
use Benchmark qw/ :all /;

cmpthese 0, {
    "Data::Validator" => sub {
        dv(100);
    },
    "Data::Util" => sub {
        du(100);
    },
};

sub dv {
    my $rule = Data::Validator->new(
        lv => 'Int',
    )->with('Sequenced');
    my $args = $rule->validate(@_);
    $args->{lv};
}

sub du {
    my ($lv) = @_;
    if ( !Data::Util::is_integer($lv) ) {
        die "Validation failed. $lv is not integer\n";
    }
    return $lv;
}

result.txt

$ perl b.pl
                     Rate Data::Validator      Data::Util
Data::Validator   10814/s              --           -100%
Data::Util      2833220/s          26099%              --