X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FPerl%2FCritic%2FPolicy%2FDynamicMoose%2FClassOverridesRole.pm;h=3b5d040bf4077ee8d9885be6cf2134c1a4da98e6;hb=refs%2Fheads%2Fmaster;hp=94b19dd7a5adbd30724bf224c9d9d0696bb544da;hpb=0e9d2f3d0d627a4f775a4a397b5bebd0f592e5b6;p=gitmo%2FPerl-Critic-Dynamic-Moose.git

diff --git a/lib/Perl/Critic/Policy/DynamicMoose/ClassOverridesRole.pm b/lib/Perl/Critic/Policy/DynamicMoose/ClassOverridesRole.pm
index 94b19dd..3b5d040 100644
--- a/lib/Perl/Critic/Policy/DynamicMoose/ClassOverridesRole.pm
+++ b/lib/Perl/Critic/Policy/DynamicMoose/ClassOverridesRole.pm
@@ -26,7 +26,7 @@ sub violates_metaclass {
                 or next;
 
             if ($method_object->isa('Moose::Meta::Role::Method')) {
-                next if $method_object->original_package_name eq $role->name;
+                next if $method_object->body == $role->get_method($method)->body;
             }
 
             my $class_name = $class->name;