From: Shawn M Moore <sartak@gmail.com>
Date: Sun, 3 May 2009 21:02:10 +0000 (-0400)
Subject: Don't use get_method_map either
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4832e38cb3e0487a00304d59af6233c322670e7b;p=gitmo%2FPerl-Critic-Dynamic-Moose.git

Don't use get_method_map either
---

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')