File Coverage

blib/lib/Benchmark/Featureset/ParamCheck/Base.pm
Criterion Covered Total %
statement 31 35 88.5
branch n/a
condition n/a
subroutine 10 14 71.4
pod 0 6 0.0
total 41 55 74.5


line stmt bran cond sub pod time code
1 4     4   1405 use v5.12;
  4         11  
2 4     4   15 use strict;
  4         7  
  4         56  
3 4     4   14 use warnings;
  4         6  
  4         381  
4              
5              
6             our $AUTHORITY = 'cpan:TOBYINK';
7             our $VERSION = '0.007';
8              
9              
10 0     0 0 0 use constant allow_extra_key => !!0;
11 0     0 0 0 use constant accept_hash => !!1;
12 0     0 0 0 use constant accept_hashref => !!1;
13 0     0 0 0  
14             use constant accept_array => !!1;
15 4     4   23 use constant accept_arrayref => !!0;
  4         5  
  4         258  
16 4     4   20  
  4         5  
  4         165  
17 4     4   20 my ($class, $times, @args) = @_;
  4         6  
  4         165  
18             my $check = $class->get_named_check;
19 4     4   18 $check->(@args) for 1 .. $times;
  4         6  
  4         197  
20 4     4   19 return;
  4         7  
  4         612  
21             }
22              
23 1770     1770 0 1038988 my ($class, $times, @args) = @_;
24 1770         11210 my $check = $class->get_positional_check;
25 1770         245066 $check->(@args) for 1 .. $times;
26 1560         496687518 return;
27             }
28              
29             1;