Add built local::lib

[catagits/Gitalist.git] / local-lib5 / lib / perl5 / MooseX / Types / Structured / OverflowHandler.pm

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 (file)
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;