From: Yuval Kogman <nothingmuch@woobling.org>
Date: Fri, 8 Aug 2008 23:44:45 +0000 (+0000)
Subject: use named params to instance_metaclass->new
X-Git-Tag: 0_64_01~67
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9c71cbf7f162ca9848f7243a0f2c3d3241817e30;p=gitmo%2FClass-MOP.git

use named params to instance_metaclass->new
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 439ed84..f517a56 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -398,8 +398,8 @@ sub get_meta_instance {
         if defined $self->{'_package_cache_flag'} && 
                    $self->{'_package_cache_flag'} == Class::MOP::check_package_cache_flag($self->name);
     $self->{'_meta_instance'} ||= $self->instance_metaclass->new(
-        $self,
-        $self->compute_all_applicable_attributes()
+        associated_metaclass => $self,
+        attributes => [ $self->compute_all_applicable_attributes() ],
     );
 }