File Coverage

blib/lib/MooseX/Types/Structured/OverflowHandler.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package ## Hide from PAUSE
2             MooseX::Types::Structured::OverflowHandler;
3              
4 20     20   104 use Moose;
  20         30  
  20         128  
5              
6 20     20   124489 use overload '""' => 'name', fallback => 1;
  20         41  
  20         177  
7              
8             has type_constraint => (
9             is => 'ro',
10             isa => 'Moose::Meta::TypeConstraint',
11             required => 1,
12             handles => [qw/check/],
13             );
14              
15             sub name {
16 18     18 0 5008 my ($self) = @_;
17 18         793 return 'slurpy(' . $self->type_constraint->name . ')';
18             }
19              
20 20     20   2912 no Moose;
  20         38  
  20         95  
21             __PACKAGE__->meta->make_immutable;
22              
23             1;