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   11939 use v5.12;
  4         12  
2 4     4   18 use strict;
  4         10  
  4         69  
3 4     4   18 use warnings;
  4         7  
  4         231  
4              
5              
6             our $AUTHORITY = 'cpan:TOBYINK';
7             our $VERSION = '0.007';
8              
9             use parent qw(Benchmark::Featureset::ParamCheck::Base);
10 4     4   20 use Ref::Util 0.203 ();
  4         5  
  4         22  
11 4     4   212 use Ref::Util::XS 0.116 ();
  4         61  
  4         87  
12 4     4   21 use Type::Params 1.016004 qw(compile_named compile);
  4         44  
  4         94  
13 4     4   20 use Specio::Declare 0.37;
  4         45  
  4         24  
14 4     4   1072 use Specio::Library::Builtins 0.37;
  4         50  
  4         36  
15 4     4   654 use namespace::autoclean;
  4         50  
  4         22  
16 4     4   27882  
  4         8  
  4         46  
17             use constant long_name => 'Type::Params with Specio';
18 4     4   307 use constant short_name => 'TP-Specio';
  4         8  
  4         292  
19 4     4   21  
  4         8  
  4         610  
20             state $check = compile_named(
21             integer => t('Int'),
22 118     118 0 406 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 107     107 0 366 object_can_type('Printable', methods => [qw/ print close /]),
31             );
32             }
33              
34             1;