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             our $VERSION = '0.36';
5              
6 19     19   133 use Moose;
  19         45  
  19         117  
7              
8 19     19   110631 use overload '""' => 'name', fallback => 1;
  19         48  
  19         155  
9              
10             has type_constraint => (
11             is => 'ro',
12             isa => 'Moose::Meta::TypeConstraint',
13             required => 1,
14             handles => [qw/check/],
15             );
16              
17             sub name {
18 18     18 0 4071 my ($self) = @_;
19 18         537 return 'slurpy(' . $self->type_constraint->name . ')';
20             }
21              
22 19     19   2559 no Moose;
  19         52  
  19         275  
23             __PACKAGE__->meta->make_immutable;
24              
25             1;