dave
/
docker-buttbot
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
.perlcriticrc
View File

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

15
critique.pl
View File

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