File Coverage

blib/lib/MooX/StrictConstructor/Role/Constructor.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1 2     2   148503 use strict; # redundant, but quiets perlcritic
  2         4  
  2         86  
2 2     2   13 use warnings;
  2         5  
  2         232  
3             package MooX::StrictConstructor::Role::Constructor;
4              
5             our $VERSION = '0.013';
6              
7 2     2   664 use Moo::Role;
  2         20268  
  2         16  
8              
9             with 'MooX::StrictConstructor::Role::Constructor::Base';
10              
11             around _check_required => sub {
12             my ($orig, $self, $spec, @rest) = @_;
13             my $code = $self->$orig($spec, @rest);
14             $code .= $self->_cap_call($self->_check_strict($spec, '$args'));
15             return $code;
16             };
17              
18             1;
19              
20             __END__