From: Yuval Kogman <nothingmuch@woobling.org>
Date: Thu, 14 Aug 2008 09:00:08 +0000 (+0000)
Subject: pass hashrefs to _new
X-Git-Tag: 0_55_01~24
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1b8d1399ddc89b02a8b4fb5f15063e24e579ea8f;p=gitmo%2FMoose.git

pass hashrefs to _new
---

diff --git a/lib/Moose/Meta/Role/Application.pm b/lib/Moose/Meta/Role/Application.pm
index dfad321..0241bdb 100644
--- a/lib/Moose/Meta/Role/Application.pm
+++ b/lib/Moose/Meta/Role/Application.pm
@@ -29,7 +29,7 @@ sub new {
                                 : [ $params{excludes} ]);
     }
     
-    $class->_new(%params);
+    $class->_new(\%params);
 }
 
 sub is_method_excluded {
diff --git a/lib/Moose/Meta/TypeConstraint/Enum.pm b/lib/Moose/Meta/TypeConstraint/Enum.pm
index 570433f..65d8a56 100644
--- a/lib/Moose/Meta/TypeConstraint/Enum.pm
+++ b/lib/Moose/Meta/TypeConstraint/Enum.pm
@@ -20,7 +20,7 @@ sub new {
 
     $args{parent} = Moose::Util::TypeConstraints::find_type_constraint('Str');
 
-    my $self = $class->_new(%args);
+    my $self = $class->_new(\%args);
 
     $self->compile_type_constraint()
         unless $self->_has_compiled_type_constraint;