X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FTypes%2FTypeDecorator.pm;h=4c2bc8eb1a2d02a03d8efe5e93e0f9ff93c9b926;hb=ef8b7b7a254653b0e77d19b19d7bd870700cf4b2;hp=de5660244952e8c328d5b3c0db50f5fad7905740;hpb=6d7f2c07382702d3807060253671ac8572c7e33e;p=gitmo%2FMooseX-Types.git diff --git a/lib/MooseX/Types/TypeDecorator.pm b/lib/MooseX/Types/TypeDecorator.pm index de56602..4c2bc8e 100644 --- a/lib/MooseX/Types/TypeDecorator.pm +++ b/lib/MooseX/Types/TypeDecorator.pm @@ -1,10 +1,10 @@ package MooseX::Types::TypeDecorator; -our $VERSION = "0.22"; + +#ABSTRACT: Wraps Moose::Meta::TypeConstraint objects with added features use strict; use warnings; - use Carp::Clan qw( ^MooseX::Types ); use Moose::Util::TypeConstraints (); use Moose::Meta::TypeConstraint::Union; @@ -52,10 +52,6 @@ use overload( ); -=head1 NAME - -MooseX::Types::TypeDecorator - More flexible access to a Type Constraint - =head1 DESCRIPTION This is a decorator object that contains an underlying type constraint. We use @@ -201,7 +197,6 @@ sub AUTOLOAD { ## MooseX::Types::UndefinedType which AUTOLOADs during autovivication. my $return; - eval { $return = $self->__type_constraint->$method(@args); }; if($@) { @@ -211,10 +206,6 @@ sub AUTOLOAD { } } -=head1 AUTHOR - -See L. - =head1 LICENSE This program is free software; you can redistribute it and/or modify