package Perl::Critic::Policy::DynamicMoose::ProhibitPublicBuilders;
use Moose;
-extends 'Perl::Critic::Policy::DynamicMoose';
+extends 'Perl::Critic::DynamicMoosePolicy';
use Perl::Critic::Utils ':severities';
use Perl::Critic::Utils::Moose 'meta_type';
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)) {