* CHANGE: bumpin' up to severity 3
This commit is contained in:
parent
5966942f98
commit
aa1683a1c2
|
@ -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 ================================================================
|
15
critique.pl
15
critique.pl
|
@ -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);
|
||||
}
|
Loading…
Reference in New Issue