Refactor to exit early if we cannot inline

[gitmo/Class-MOP.git] / lib / Class / MOP / Method / Inlined.pm

diff --git a/lib/Class/MOP/Method/Inlined.pm b/lib/Class/MOP/Method/Inlined.pm
index e6af08a..db4f8ea 100644 (file)
--- a/lib/Class/MOP/Method/Inlined.pm
+++ b/lib/Class/MOP/Method/Inlined.pm
@@ -41,6 +41,16 @@ sub can_be_inlined {
     # compatible with the definition we are replacing it with
     my $expected_method = $expected_class->can( $self->name );
 
+    if ( ! $expected_method ) {
+        warn "Not inlining '"
+            . $self->name
+            . "' for $class since ${expected_class}::"
+            . $self->name
+            . " is not defined\n";
+
+        return 0;
+    }
+
     my $actual_method = $class->can( $self->name )
         or return 1;
 
@@ -53,9 +63,9 @@ sub can_be_inlined {
     # though we're expecting one to be there
     #
     # this returns 1 for backwards compatibility for now
-     my $inherited_method
-         = $metaclass->find_next_method_by_name( $self->name )
-             or return 1;
+    my $inherited_method
+        = $metaclass->find_next_method_by_name( $self->name )
+            or return 1;
 
     # otherwise we have to check that the actual method is an inlined
     # version of what we're expecting