Fix reversed conditional

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

diff --git a/lib/Perl/Critic/Policy/Dynamic/Moose/ProhibitPublicBuilders.pm b/lib/Perl/Critic/Policy/Dynamic/Moose/ProhibitPublicBuilders.pm
index 841746d..34d5e8f 100644 (file)
--- a/lib/Perl/Critic/Policy/Dynamic/Moose/ProhibitPublicBuilders.pm
+++ b/lib/Perl/Critic/Policy/Dynamic/Moose/ProhibitPublicBuilders.pm
@@ -2,8 +2,8 @@ package Perl::Critic::Policy::Dynamic::Moose::ProhibitPublicBuilders;
 use Moose;
 extends 'Perl::Critic::Policy::Dynamic::Moose';
 
-Readonly::Scalar my $DESC = q{Builder method name without a leading underscore};
-Readonly::Scalar my $EXPL = q{Prefix builder method names with an underscore};
+Readonly::Scalar my $DESC => q{Builder method name without a leading underscore};
+Readonly::Scalar my $EXPL => q{Prefix builder method names with an underscore};
 
 sub violates_metaclass {
     my $self = shift;
@@ -17,7 +17,7 @@ sub violates_metaclass {
 
         next if !$attribute->has_builder;
 
-        if ($attribute->builder =~ /^_/) {
+        if ($attribute->builder !~ /^_/) {
             push @violations, $self->violation($DESC, $EXPL);
         }
     }
@@ -25,7 +25,6 @@ sub violates_metaclass {
     return @violations;
 }
 
-__PACKAGE__->meta->make_immutable;
 no Moose;
 
 1;