* CHANGE: bumpin' up to severity 3

This commit is contained in:
htmlism 2008-08-02 03:30:46 +00:00
parent 5966942f98
commit aa1683a1c2
2 changed files with 12 additions and 8 deletions

View File

@ -1,4 +1,4 @@
severity = 4
severity = 3
# severity five ===============================================================
@ -24,6 +24,9 @@ allow_last_statement_to_be_comma_separated_in_map_and_grep = 1
# severity three ==============================================================
[-RegularExpressions::RequireExtendedFormatting]
# they're not all complex
# severity two ================================================================
# severity one ================================================================

View File

@ -1,17 +1,18 @@
use strict;
use warnings;
use Perl::Critic;
my @FILES = qw(
buttbot.pl
Butts.pm
t/Butts.t
critique.pl
buttbot.pl
Butts.pm
t/Butts.t
critique.pl
);
use Perl::Critic;
my $critic = new Perl::Critic;
for my $file (@FILES) {
print "Critiquing $file...\n";
print $critic->critique($file);
print "Critiquing $file...\n";
print $critic->critique($file);
}