From: John Napiorkowski <jjnapiork@cpan.org>
Date: Tue, 7 Oct 2008 14:12:12 +0000 (+0000)
Subject: slightly better error handling
X-Git-Tag: 0.06~4^2~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types.git;a=commitdiff_plain;h=d8f30dd42921bb59d34e1a44559c673654cdc0d1

slightly better error handling
---

diff --git a/lib/MooseX/Types/TypeDecorator.pm b/lib/MooseX/Types/TypeDecorator.pm
index cf3f517..79c77ee 100644
--- a/lib/MooseX/Types/TypeDecorator.pm
+++ b/lib/MooseX/Types/TypeDecorator.pm
@@ -50,8 +50,10 @@ sub new {
         } elsif(ref $arg && $arg->isa('MooseX::Types::UndefinedType')) {
             ## stub in case we'll need to handle these types differently
             return bless {'__type_constraint'=>$arg}, $class;
+        } elsif(ref $arg) {
+            croak "Argument must be ->isa('Moose::Meta::TypeConstraint') or ->isa('MooseX::Types::UndefinedType'), not ". ref $arg;
         } else {
-            croak "Argument must be ->isa('Moose::Meta::TypeConstraint') or ->isa('MooseX::Types::UndefinedType')";
+            croak "Argument cannot be '$arg'";
         }
     } else {
         croak "This method [new] requires a single argument of 'arg'.";