use hash ref in Moose::Object::new
Yuval Kogman [Wed, 13 Aug 2008 22:20:38 +0000 (22:20 +0000)]
lib/Moose/Object.pm

index 56eaff4..e0f4e81 100644 (file)
@@ -15,7 +15,7 @@ our $AUTHORITY = 'cpan:STEVAN';
 sub new {
     my $class = shift;
     my $params = $class->BUILDARGS(@_);
-    my $self = $class->meta->new_object(%$params);
+    my $self = $class->meta->new_object($params);
     $self->BUILDALL($params);
     return $self;
 }