Fix reversed conditional
Shawn M Moore [Sun, 26 Apr 2009 00:48:44 +0000 (20:48 -0400)]
lib/Perl/Critic/Policy/Dynamic/Moose/ProhibitPublicBuilders.pm

index 657e3fc..34d5e8f 100644 (file)
@@ -17,7 +17,7 @@ sub violates_metaclass {
 
         next if !$attribute->has_builder;
 
-        if ($attribute->builder =~ /^_/) {
+        if ($attribute->builder !~ /^_/) {
             push @violations, $self->violation($DESC, $EXPL);
         }
     }