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   101 use Moose;
  20         36  
  20         125  
5              
6 20     20   120928 use overload '""' => 'name', fallback => 1;
  20         44  
  20         242  
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 4480 my ($self) = @_;
17 18         733 return 'slurpy ' . $self->type_constraint->name;
18             }
19              
20 20     20   3003 no Moose;
  20         43  
  20         97  
21             __PACKAGE__->meta->make_immutable;
22              
23             1;