Don't use get_attribute_map

[gitmo/Perl-Critic-Dynamic-Moose.git] / lib / Perl / Critic / Policy / DynamicMoose / ProhibitPublicBuilders.pm

diff --git a/lib/Perl/Critic/Policy/DynamicMoose/ProhibitPublicBuilders.pm b/lib/Perl/Critic/Policy/DynamicMoose/ProhibitPublicBuilders.pm
index 9cbbe5d..afa8215 100644 (file)
--- a/lib/Perl/Critic/Policy/DynamicMoose/ProhibitPublicBuilders.pm
+++ b/lib/Perl/Critic/Policy/DynamicMoose/ProhibitPublicBuilders.pm
@@ -18,9 +18,8 @@ sub violates_metaclass {
 
     my @violations;
 
-    my $attributes = $meta->get_attribute_map;
-    for my $name (keys %$attributes) {
-        my $attribute = $attributes->{$name};
+    for my $name ($meta->get_attribute_list) {
+        my $attribute = $meta->get_attribute($name);
         my $builder;
 
         if (blessed($attribute)) {
@@ -75,5 +74,9 @@ network or mutating files).
 For this Policy to work, all the modules included in your code must be
 installed locally, and must compile without error.
 
+=head1 AUTHOR
+
+Shawn M Moore, C<sartak@bestpractical.com>
+
 =cut