lib/MooseX/Types/Structured/OverflowHandler.pm

   1 package ## Hide from PAUSE
   2   MooseX::Types::Structured::OverflowHandler;
   3
   4 use Moose;
   5
   6 use overload '""' => 'name', fallback => 1;
   7
   8 =attr type_constraint
   9
  10 =cut
  11
  12 has type_constraint => (
  13     is       => 'ro',
  14     isa      => 'Moose::Meta::TypeConstraint',
  15     required => 1,
  16     handles  => [qw/check/],
  17 );
  18
  19 =method name
  20
  21 =cut
  22
  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;