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 20     20   105 use Moose;
  20         37  
  20         141  
5 20     20   141948 use MooseX::Meta::TypeCoercion::Structured::Optional;
  20         59  
  20         2211  
6              
7             extends 'Moose::Meta::TypeConstraint::Parameterizable';
8              
9             around parameterize => sub {
10             my $orig = shift;
11             my $self = shift;
12              
13             my $ret = $self->$orig(@_);
14              
15             $ret->coercion(MooseX::Meta::TypeCoercion::Structured::Optional->new(type_constraint => $ret));
16              
17             return $ret;
18             };
19              
20 20     20   116 no Moose;
  20         33  
  20         91  
21             __PACKAGE__->meta->make_immutable(inline_constructor => 0);
22              
23             1;