X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FPerl-Critic-Dynamic-Moose.git;a=blobdiff_plain;f=lib%2FPerl%2FCritic%2FPolicy%2FDynamicMoose%2FRequireMethodModifiers.pm;h=54a6efdd28588c982146c4e949908dcd9eb9cafd;hp=758047053d46f0485d36237feecc24591baf1e57;hb=4832e38cb3e0487a00304d59af6233c322670e7b;hpb=501e8f35f8ff75c77860a52ffd5db93085e4ee90

diff --git a/lib/Perl/Critic/Policy/DynamicMoose/RequireMethodModifiers.pm b/lib/Perl/Critic/Policy/DynamicMoose/RequireMethodModifiers.pm
index 7580470..54a6efd 100644
--- a/lib/Perl/Critic/Policy/DynamicMoose/RequireMethodModifiers.pm
+++ b/lib/Perl/Critic/Policy/DynamicMoose/RequireMethodModifiers.pm
@@ -14,10 +14,8 @@ sub violates_metaclass {
 
     my @violations;
 
-    my $map = $meta->get_method_map;
-
-    for my $name (keys %$map) {
-        my $method = $map->{$name};
+    for my $name ($meta->get_method_list) {
+        my $method = $meta->get_method($name);
 
         # override and augment modifiers are always fine.
         next if $method->isa('Moose::Meta::Method::Overridden')