Commit | Line | Data |
3c0a590c |
1 | package ## Hide from PAUSE |
2 | MooseX::Types::Structured::OverflowHandler; |
2f8e2a40 |
3 | |
4 | use Moose; |
5 | |
6 | use overload '""' => 'name', fallback => 1; |
7 | |
8dbdca20 |
8 | =attr type_constraint |
9 | |
10 | =cut |
11 | |
2f8e2a40 |
12 | has type_constraint => ( |
13 | is => 'ro', |
14 | isa => 'Moose::Meta::TypeConstraint', |
15 | required => 1, |
16 | handles => [qw/check/], |
17 | ); |
18 | |
8dbdca20 |
19 | =method name |
20 | |
21 | =cut |
22 | |
2f8e2a40 |
23 | sub name { |
24 | my ($self) = @_; |
25 | return 'slurpy ' . $self->type_constraint->name; |
26 | } |
27 | |
28 | no Moose; |
29 | __PACKAGE__->meta->make_immutable; |
30 | |
31 | 1; |