From: Dave Rolsky <autarch@urth.org>
Date: Mon, 20 Apr 2009 15:14:16 +0000 (-0500)
Subject: Perltidy this file
X-Git-Tag: 0.82_01~11^2~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f5d984416b35f30d2b66a2f582e695164df08e14;hp=6446bd5941ae476f37009e390ba509937f8b57d2;p=gitmo%2FClass-MOP.git

Perltidy this file
---

diff --git a/lib/Class/MOP/Method/Inlined.pm b/lib/Class/MOP/Method/Inlined.pm
index 3a4fd51..82bae4c 100644
--- a/lib/Class/MOP/Method/Inlined.pm
+++ b/lib/Class/MOP/Method/Inlined.pm
@@ -17,13 +17,17 @@ sub _expected_method_class { $_[0]{_expected_method_class} }
 sub _uninlined_body {
     my $self = shift;
 
-    if ( my $super_method = $self->associated_metaclass->find_next_method_by_name( $self->name ) ) {
+    if ( my $super_method
+        = $self->associated_metaclass->find_next_method_by_name( $self->name )
+        ) {
         if ( $super_method->isa(__PACKAGE__) ) {
             return $super_method->_uninlined_body;
-        } else {
+        }
+        else {
             return $super_method->body;
         }
-    } else {
+    }
+    else {
         return;
     }
 }
@@ -31,45 +35,62 @@ sub _uninlined_body {
 sub can_be_inlined {
     my $self      = shift;
     my $metaclass = $self->associated_metaclass;
-    my $class = $metaclass->name;
+    my $class     = $metaclass->name;
 
     if ( my $expected_class = $self->_expected_method_class ) {
 
         # if we are shadowing a method we first verify that it is
         # compatible with the definition we are replacing it with
-        my $expected_method = $expected_class->can($self->name);
+        my $expected_method = $expected_class->can( $self->name );
 
         my $warning
-            = "Not inlining '" . $self->name . "' for $class since it is not"
-            . " inheriting the default ${expected_class}::" . $self->name . "\n"
+            = "Not inlining '"
+            . $self->name
+            . "' for $class since it is not"
+            . " inheriting the default ${expected_class}::"
+            . $self->name . "\n"
             . "If you are certain you don't need to inline your";
 
         if ( $self->isa("Class::MOP::Method::Constructor") ) {
+
             # FIXME kludge, refactor warning generation to a method
-            $warning .= " constructor, specify inline_constructor => 0 in your"
-                     . " call to $class->meta->make_immutable\n";
+            $warning
+                .= " constructor, specify inline_constructor => 0 in your"
+                . " call to $class->meta->make_immutable\n";
         }
 
-        if ( my $actual_method = $class->can($self->name) ) {
+        if ( my $actual_method = $class->can( $self->name ) ) {
             if ( refaddr($expected_method) == refaddr($actual_method) ) {
+
                 # the method is what we wanted (probably Moose::Object::new)
                 return 1;
-            } elsif ( my $inherited_method = $metaclass->find_next_method_by_name( $self->name ) ) {
+            }
+            elsif ( my $inherited_method
+                = $metaclass->find_next_method_by_name( $self->name ) ) {
+
                 # otherwise we have to check that the actual method is an
                 # inlined version of what we're expecting
                 if ( $inherited_method->isa(__PACKAGE__) ) {
-                    if ( refaddr($inherited_method->_uninlined_body) == refaddr($expected_method) ) {
+                    if ( refaddr( $inherited_method->_uninlined_body )
+                        == refaddr($expected_method) ) {
                         return 1;
                     }
-                } elsif ( refaddr($inherited_method->body) == refaddr($expected_method) ) {
+                }
+                elsif ( refaddr( $inherited_method->body )
+                    == refaddr($expected_method) ) {
                     return 1;
                 }
 
                 # FIXME we can just rewrap them =P
-                $warning .= " ('" . $self->name . "' has method modifiers which would be lost if it were inlined)\n"
+                $warning
+                    .= " ('"
+                    . $self->name
+                    . "' has method modifiers which would be lost if it were inlined)\n"
                     if $inherited_method->isa('Class::MOP::Method::Wrapped');
             }
-        } else {
+        }
+        else {
+
             # This would be a rather weird case where we have no method
             # in the inheritance chain even though we're expecting one to be
             # there
@@ -81,7 +102,9 @@ sub can_be_inlined {
         warn $warning;
 
         return 0;
-    } else {
+    }
+    else {
+
         # there is no expected class so we just install the constructor as a
         # new method
         return 1;