File Coverage

blib/lib/MooseX/Meta/TypeConstraint/Structured/Optional.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             package ## Hide from PAUSE
2             MooseX::Meta::TypeConstraint::Structured::Optional;
3              
4             our $VERSION = '0.36';
5              
6 19     19   125 use Moose;
  19         44  
  19         136  
7 19     19   122617 use MooseX::Meta::TypeCoercion::Structured::Optional;
  19         68  
  19         1673  
8              
9             extends 'Moose::Meta::TypeConstraint::Parameterizable';
10              
11             around parameterize => sub {
12             my $orig = shift;
13             my $self = shift;
14              
15             my $ret = $self->$orig(@_);
16              
17             $ret->coercion(MooseX::Meta::TypeCoercion::Structured::Optional->new(type_constraint => $ret));
18              
19             return $ret;
20             };
21              
22 19     19   126 no Moose;
  19         46  
  19         95  
23             __PACKAGE__->meta->make_immutable(inline_constructor => 0);
24              
25             1;