X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FTypes%2FTypeDecorator.pm;h=3eba05dc4c377373a198483a240b40665a5b3537;hb=5a1fdc82b77fa6c2b8491b540d1625cbf63b596e;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..3eba05d 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 @@ -187,7 +183,7 @@ sub DESTROY { =head2 AUTOLOAD -Delegate to the decorator targe +Delegate to the decorator target. =cut @@ -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