From: Stevan Little <stevan.little@iinteractive.com>
Date: Thu, 15 Mar 2007 21:31:31 +0000 (+0000)
Subject: foo
X-Git-Tag: 0_19~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=815ec6719fe183bfd76d66677669976ed681464a;p=gitmo%2FMoose.git

foo
---

diff --git a/lib/Moose/Util/TypeConstraints.pm b/lib/Moose/Util/TypeConstraints.pm
index 74739c1..c91a6c1 100644
--- a/lib/Moose/Util/TypeConstraints.pm
+++ b/lib/Moose/Util/TypeConstraints.pm
@@ -67,7 +67,7 @@ sub unimport {
         
         my ($message, $optimized);
         for (@_) {
-            $message   = $_->{message} if exists $_->{message};
+            $message   = $_->{message}   if exists $_->{message};
             $optimized = $_->{optimized} if exists $_->{optimized};            
         }
 
@@ -119,9 +119,9 @@ sub unimport {
 
 # type constructors
 
-sub type ($$) {
-	my ($name, $check) = @_;
-	_create_type_constraint($name, undef, $check);
+sub type ($$;$$) {
+	my ($name, $check, @rest) = @_;
+	_create_type_constraint($name, undef, $check, @rest);
 }
 
 sub subtype ($$;$$$) {