my $self = shift;
# we do this for metaclasses way too often to do this check for them
- if (!$self->name->isa('Class::MOP::Object')) {
+ if ( !$self->name->isa('Class::MOP::Object') ) {
my @superclasses = grep { $_ ne 'Moose::Object' && $_ ne $self->name }
- $self->linearized_isa;
+ $self->linearized_isa;
for my $superclass (@superclasses) {
my $meta = Class::MOP::class_of($superclass);
next unless $meta && $meta->isa('Moose::Meta::Class');
next unless $meta->is_mutable;
- Carp::cluck("Calling make_immutable on "
+ Carp::cluck( "Calling make_immutable on "
. $self->name
- . ", which has a mutable ancestor ($superclass)");
+ . ", which has a mutable ancestor ($superclass)" );
last;
}
}