next if $self->isa(ref $meta); # _superclass_meta_is_compatible
- # XXX: should we check 'is_pristine' ?
-
$self->_reconcile_with_superclass_meta($meta);
}
@{ $self->{superclasses} } = @_;
my($self, $super_meta) = @_;
my @incompatibles;
+
foreach my $metaclass_type(@MetaClassTypes){
my $super_c = $super_meta->$metaclass_type();
my $self_c = $self->$metaclass_type();
if(!$super_c->isa($self_c)){
- push @incompatibles, $metaclass_type => $super_c;
+ push @incompatibles, ($metaclass_type => $super_c);
}
}
- if(@incompatibles){
- $super_meta->reinitialize($self->name, @incompatibles);
- }
+ $super_meta->reinitialize($self, @incompatibles);
return;
}
Throws an error with the given message.
+=head3 OTHER PUBLIC METHODS
+
+=head3 add_after_method_modifier
+
+=head3 add_around_method_modifier
+
+=head3 add_augment_method_modifier
+
+=head3 add_before_method_modifier
+
+=head3 add_override_method_modifier
+
+=head3 attribute_metaclass
+
+=head3 calculate_all_roles
+
+=head3 compute_all_applicable_attributes
+
+=head3 constructor_class
+
+=head3 create_anon_class
+
+=head3 destructor_class
+
+=head3 does_role
+
+=head3 find_attribute_by_name
+
+=head3 find_method_by_name
+
+=head3 get_all_method_names
+
+=head3 is_anon_class
+
+=head3 is_immutable
+
+=head3 is_mutable
+
+=head3 make_immutable
+
+=head3 make_mutable
+
+=head3 method_metaclass
+
+=head3 roles
+
=head1 SEE ALSO
+L<Mouse::Meta::Module>
+
L<Moose::Meta::Class>
L<Class::MOP::Class>