From: Dave Rolsky Date: Mon, 7 Sep 2009 17:19:22 +0000 (-0500) Subject: Tidy new code X-Git-Tag: 0.89_02~26 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4bcbbb57ec37a9eeff3d7207fad57645d7254560;hp=21f1fbdc72bf569ef63bd551217635baa27da689;p=gitmo%2FMoose.git Tidy new code --- diff --git a/lib/Moose/Meta/Class.pm b/lib/Moose/Meta/Class.pm index 1311a1f..b849e42 100644 --- a/lib/Moose/Meta/Class.pm +++ b/lib/Moose/Meta/Class.pm @@ -144,16 +144,16 @@ sub make_immutable { 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; } }