File Coverage

blib/lib/Benchmark/Featureset/ParamCheck/Implementation/PV/TypeTiny.pm
Criterion Covered Total %
statement 34 34 100.0
branch n/a
condition n/a
subroutine 13 13 100.0
pod 0 2 0.0
total 47 49 95.9


line stmt bran cond sub pod time code
1 4     4   10850 use v5.12;
  4         13  
2 4     4   18 use strict;
  4         8  
  4         127  
3 4     4   23 use warnings;
  4         7  
  4         208  
4              
5              
6             our $AUTHORITY = 'cpan:TOBYINK';
7             our $VERSION = '0.007';
8              
9             use parent qw(Benchmark::Featureset::ParamCheck::Base::PV);
10 4     4   19 use Ref::Util 0.203 ();
  4         7  
  4         17  
11 4     4   232 use Ref::Util::XS 0.116 ();
  4         51  
  4         82  
12 4     4   21 use Types::Standard 1.001_009 -types;
  4         43  
  4         87  
13 4     4   17 use Type::Tiny::XS 0.012 ();
  4         43  
  4         20  
14 4     4   21416 use namespace::autoclean;
  4         53  
  4         68  
15 4     4   17  
  4         8  
  4         21  
16             use constant long_name => 'Params::Validate with Type::Tiny';
17 4     4   231 use constant short_name => 'PV-TT';
  4         7  
  4         199  
18 4     4   21  
  4         6  
  4         658  
19             state $check = {
20             integer => { callbacks => { typecheck => (Int)->compiled_check } },
21 118     118 0 403 hashes => { callbacks => { typecheck => (ArrayRef[HashRef])->compiled_check } },
22             object => { callbacks => { typecheck => (HasMethods[qw/ print close /])->compiled_check } },
23             };
24             }
25              
26             state $check = [
27             { callbacks => { typecheck => (Int)->compiled_check } },
28             { callbacks => { typecheck => (ArrayRef[HashRef])->compiled_check } },
29 107     107 0 328 { callbacks => { typecheck => (HasMethods[qw/ print close /])->compiled_check } },
30             ];
31             }
32              
33             1;