File Coverage

blib/lib/Benchmark/Featureset/ParamCheck/Implementation/TypeParams2/Moose.pm
Criterion Covered Total %
statement 28 28 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod 0 2 0.0
total 39 41 95.1


line stmt bran cond sub pod time code
1 4     4   11291 use v5.12;
  4         12  
2 4     4   16 use strict;
  4         9  
  4         81  
3 4     4   16 use warnings;
  4         8  
  4         265  
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 Type::Params 2.000000 qw(signature);
  4         9  
  4         23  
11 4     4   225 use Moose::Util::TypeConstraints 2.2002;
  4         52  
  4         22  
12 4     4   1201 use namespace::autoclean;
  4         62  
  4         25  
13 4     4   5887  
  4         10  
  4         26  
14             use constant long_name => 'Type::Params v2 API with Moose';
15 4     4   210 use constant short_name => 'TP2-Moose';
  4         8  
  4         192  
16 4     4   19  
  4         7  
  4         545  
17             my $t = \&Moose::Util::TypeConstraints::find_or_parse_type_constraint;
18              
19             state $check = signature named => [
20             integer => $t->('Int'),
21 118     118 0 418 hashes => $t->('ArrayRef[HashRef]'),
22             object => duck_type(Printable => [qw/ print close /]),
23             ];
24             }
25              
26             state $check = signature pos => [
27             $t->('Int'),
28             $t->('ArrayRef[HashRef]'),
29 107     107 0 310 duck_type(Printable => [qw/ print close /]),
30             ];
31             }
32              
33             1;