From: Stevan Little <stevan.little@iinteractive.com>
Date: Thu, 15 Mar 2007 21:37:15 +0000 (+0000)
Subject: types can have messages now
X-Git-Tag: 0_19~14
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1b7df21f8971e95579ae9fade60b20c43dd27a2e;p=gitmo%2FMoose.git

types can have messages now
---

diff --git a/lib/Moose/Util/TypeConstraints.pm b/lib/Moose/Util/TypeConstraints.pm
index c91a6c1..abd67f5 100644
--- a/lib/Moose/Util/TypeConstraints.pm
+++ b/lib/Moose/Util/TypeConstraints.pm
@@ -120,8 +120,8 @@ sub unimport {
 # type constructors
 
 sub type ($$;$$) {
-	my ($name, $check, @rest) = @_;
-	_create_type_constraint($name, undef, $check, @rest);
+    splice(@_, 1, 0, undef);
+	goto &_create_type_constraint;	
 }
 
 sub subtype ($$;$$$) {