From: Yuval Kogman Date: Mon, 20 Apr 2009 15:08:53 +0000 (+0200) Subject: reformat X-Git-Tag: 0.82_01~11^2~5 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7774a171352abf8da2dbae881281a771a929a4f0;p=gitmo%2FClass-MOP.git reformat --- diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm index 0e0195c..267beba 100644 --- a/lib/Class/MOP/Class.pm +++ b/lib/Class/MOP/Class.pm @@ -982,10 +982,10 @@ sub _immutable_options { inline_constructor => 1, inline_destructor => 0, debug => 0, - immutable_trait => $self->immutable_trait, - constructor_name => $self->constructor_name, - constructor_class => $self->constructor_class, - destructor_class => $self->destructor_class, + immutable_trait => $self->immutable_trait, + constructor_name => $self->constructor_name, + constructor_class => $self->constructor_class, + destructor_class => $self->destructor_class, @args, ); } diff --git a/lib/Class/MOP/Class/Immutable/Trait.pm b/lib/Class/MOP/Class/Immutable/Trait.pm index aaef38f..cd0380f 100644 --- a/lib/Class/MOP/Class/Immutable/Trait.pm +++ b/lib/Class/MOP/Class/Immutable/Trait.pm @@ -35,7 +35,7 @@ sub get_mutable_metaclass_name { $_[0]{__immutable}{original_class} } sub immutable_options { %{ $_[0]{__immutable}{options} } } -sub is_mutable { 0 } +sub is_mutable { 0 } sub is_immutable { 1 } sub superclasses { @@ -59,7 +59,7 @@ sub get_all_method_names { @{ $_[0]{__immutable}{get_all_method_names} ||= [ s sub get_all_attributes { @{ $_[0]{__immutable}{get_all_attributes} ||= [ shift->next::method ] } } sub get_meta_instance { $_[0]{__immutable}{get_meta_instance} ||= shift->next::method } -sub get_method_map { $_[0]{__immutable}{get_method_map} ||= shift->next::method } +sub get_method_map { $_[0]{__immutable}{get_method_map} ||= shift->next::method } sub add_package_symbol { confess "Cannot add package symbols to an immutable metaclass"