File Coverage

blib/lib/Benchmark/Featureset/ParamCheck/Base/PV.pm
Criterion Covered Total %
statement 26 26 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 0 2 0.0
total 35 37 94.5


line stmt bran cond sub pod time code
1 4     4   1414 use v5.12;
  4         12  
2 4     4   18 use strict;
  4         8  
  4         76  
3 4     4   14 use warnings;
  4         8  
  4         222  
4              
5              
6             our $AUTHORITY = 'cpan:TOBYINK';
7             our $VERSION = '0.007';
8              
9             # Give Params::Validate a fighting chance.
10             BEGIN { $ENV{PARAMS_VALIDATE_IMPLEMENTATION} = 'XS' };
11 4     4   149  
12             use parent qw(Benchmark::Featureset::ParamCheck::Base);
13 4     4   22 use Params::Validate 1.26;
  4         6  
  4         47  
14 4     4   222 use namespace::autoclean;
  4         53  
  4         172  
15 4     4   20  
  4         7  
  4         20  
16             my ($class, $times, @args) = @_;
17             my $check = $class->get_named_check;
18 236     236 0 130896 &validate(\@args, $check) for 1 .. $times;
19 236         1343 return;
20 236         8847123 }
21 208         9259  
22             my ($class, $times, @args) = @_;
23             my $check = $class->get_positional_check;
24             &validate_pos(\@args, @$check) for 1 .. $times;
25 214     214 0 95511 return;
26 214         1200 }
27 214         6764831  
28 204         9315 1;