File Coverage

blib/lib/Benchmark/Featureset/ParamCheck/Implementation/TypeParams/Specio.pm
Criterion Covered Total %
statement 37 37 100.0
branch n/a
condition n/a
subroutine 14 14 100.0
pod 0 2 0.0
total 51 53 96.2


line stmt bran cond sub pod time code
1 4     4   11632 use v5.12;
  4         15  
2 4     4   25 use strict;
  4         12  
  4         79  
3 4     4   17 use warnings;
  4         11  
  4         213  
4              
5              
6             our $AUTHORITY = 'cpan:TOBYINK';
7             our $VERSION = '0.006';
8              
9             use parent qw(Benchmark::Featureset::ParamCheck::Base);
10 4     4   22 use Ref::Util 0.203 ();
  4         10  
  4         25  
11 4     4   224 use Ref::Util::XS 0.116 ();
  4         54  
  4         93  
12 4     4   21 use Type::Params 1.016004 qw(compile_named compile);
  4         51  
  4         81  
13 4     4   21 use Specio::Declare 0.37;
  4         55  
  4         22  
14 4     4   944 use Specio::Library::Builtins 0.37;
  4         61  
  4         30  
15 4     4   769 use namespace::autoclean;
  4         56  
  4         27  
16 4     4   31546  
  4         12  
  4         22  
17             use constant long_name => 'Type::Params with Specio';
18 4     4   226 use constant short_name => 'TP-Specio';
  4         10  
  4         247  
19 4     4   28  
  4         8  
  4         626  
20             state $check = compile_named(
21             integer => t('Int'),
22 58     58 0 208 hashes => t('ArrayRef', of => t('HashRef')),
23             object => object_can_type('Printable', methods => [qw/ print close /]),
24             );
25             }
26              
27             state $check = compile(
28             t('Int'),
29             t('ArrayRef', of => t('HashRef')),
30 47     47 0 219 object_can_type('Printable', methods => [qw/ print close /]),
31             );
32             }
33              
34             1;