Use Class::MOP::Class->initialize for Moose::Object::new
Shawn M Moore [Sat, 28 Mar 2009 21:05:32 +0000 (17:05 -0400)]
lib/Moose/Object.pm

index bef6506..cd35358 100644 (file)
@@ -14,7 +14,7 @@ our $AUTHORITY = 'cpan:STEVAN';
 sub new {
     my $class = shift;
     my $params = $class->BUILDARGS(@_);
-    my $self = $class->meta->new_object($params);
+    my $self = Class::MOP::Class->initialize($class)->new_object($params);
     $self->BUILDALL($params);
     return $self;
 }