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 (file)
--- 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() ],
     );
 }