view release on metacpan or  search on metacpan

author/benchmark.pl  view on Meta::CPAN

use Modern::Perl;
use Benchmark ':all';
use CGI;
use FormValidator::Lite qw/Email Date/; 
use FormValidator::Simple;

say "Perl: $]";
say "FVS: $FormValidator::Simple::VERSION";
say "FVL: $FormValidator::Lite::VERSION";

my $C = 1000;

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(