File Coverage

blib/lib/Benchmark/Featureset/ParamCheck/Base/ParamsCheck.pm
Criterion Covered Total %
statement 30 31 96.7
branch n/a
condition 2 2 100.0
subroutine 10 11 90.9
pod 0 2 0.0
total 42 46 91.3


line stmt bran cond sub pod time code
1 4     4   1511 use v5.12;
  4         14  
2 4     4   17 use strict;
  4         8  
  4         70  
3 4     4   18 use warnings;
  4         7  
  4         210  
4              
5              
6             our $AUTHORITY = 'cpan:TOBYINK';
7             our $VERSION = '0.007';
8              
9             use parent qw(Benchmark::Featureset::ParamCheck::Base);
10 4     4   23 use Params::Check 0.38 qw(check);
  4         6  
  4         20  
11 4     4   1927 use namespace::autoclean;
  4         12875  
  4         181  
12 4     4   25  
  4         8  
  4         33  
13             use constant allow_extra_key => !!1;
14 4     4   253 use constant accept_hash => !!0;
  4         8  
  4         214  
15 4     4   18 use constant accept_array => !!0;
  4         7  
  4         141  
16 4     4   18  
  4         7  
  4         410  
17             my ($class, $times, @args) = @_;
18             my $check = $class->get_named_check;
19 216     216 0 110955 check($check, @args) || die('failed check') for 1 .. $times;
20 216         1243 return;
21 216   100     1498 }
22 204         94347634  
23             ...;
24             }
25              
26 0     0 0   1;