From: Shawn M Moore <sartak@gmail.com>
Date: Tue, 28 Apr 2009 08:59:13 +0000 (-0400)
Subject: Medium severity for PPB
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e3f2864cbcd6d2d10accce1c5c5dc482faa4ce48;p=gitmo%2FPerl-Critic-Dynamic-Moose.git

Medium severity for PPB
---

diff --git a/lib/Perl/Critic/Policy/DynamicMoose/ProhibitPublicBuilders.pm b/lib/Perl/Critic/Policy/DynamicMoose/ProhibitPublicBuilders.pm
index 7322bb2..27a6011 100644
--- a/lib/Perl/Critic/Policy/DynamicMoose/ProhibitPublicBuilders.pm
+++ b/lib/Perl/Critic/Policy/DynamicMoose/ProhibitPublicBuilders.pm
@@ -2,9 +2,11 @@ package Perl::Critic::Policy::DynamicMoose::ProhibitPublicBuilders;
 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' };