X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FGitalist.git;a=blobdiff_plain;f=local-lib5%2Flib%2Fperl5%2FMooseX%2FTypes%2FStructured%2FOverflowHandler.pm;fp=local-lib5%2Flib%2Fperl5%2FMooseX%2FTypes%2FStructured%2FOverflowHandler.pm;h=20b9f7a548fd7b014996702424a1a20b5ea8ddcb;hp=0000000000000000000000000000000000000000;hb=3fea05b9fbf95091f4522528b9980a33e0235603;hpb=af746827daa7a8feccee889e1d12ebc74cc9201e

diff --git a/local-lib5/lib/perl5/MooseX/Types/Structured/OverflowHandler.pm b/local-lib5/lib/perl5/MooseX/Types/Structured/OverflowHandler.pm
new file mode 100644
index 0000000..20b9f7a
--- /dev/null
+++ b/local-lib5/lib/perl5/MooseX/Types/Structured/OverflowHandler.pm
@@ -0,0 +1,22 @@
+package MooseX::Types::Structured::OverflowHandler;
+
+use Moose;
+
+use overload '""' => 'name', fallback => 1;
+
+has type_constraint => (
+    is       => 'ro',
+    isa      => 'Moose::Meta::TypeConstraint',
+    required => 1,
+    handles  => [qw/check/],
+);
+
+sub name {
+    my ($self) = @_;
+    return 'slurpy ' . $self->type_constraint->name;
+}
+
+no Moose;
+__PACKAGE__->meta->make_immutable;
+
+1;