use Moose;
extends 'Perl::Critic::Policy::DynamicMoose';
+use Perl::Critic::Utils ':severities';
use Perl::Critic::Utils::Moose 'meta_type';
Readonly::Scalar my $EXPL => q{Prefix builder method names with an underscore};
+sub default_severity { $SEVERITY_MEDIUM }
augment applies_to_metaclass => sub { 'Moose::Meta::Role' };
1;
+__END__
+
+=head1 NAME
+
+Perl::Critic::Policy::DynamicMoose::ProhibitPublicBuilders
+
+=head1 DESCRIPTION
+
+An attribute's L<Moose/builder> method is used to provide a default value
+for that attribute. Such methods are rarely intended for external use, and
+should not be considered part of that class's public API. Thus we recommend
+that your attribute builder methods' names are prefixed with an underscore
+to mark them private.
+
+=cut
+