view release on metacpan or  search on metacpan

author/benchmark2.pl  view on Meta::CPAN

use Modern::Perl;
use Benchmark ':all';
use CGI;
use FormValidator::Lite; 

my $C = 1000;

my $q = CGI->new;
$q->param( param1 => 'ABCD' );

my $t = timeit(
    $C,
    sub {
        my $result = FormValidator::Lite->new($q)->check(
            param1 => [ 'NOT_BLANK', 'ASCII', [ 'LENGTH', 2, 5 ] ],
        );
    }
);
say timestr($t);