2008-07-29 19:03:26 -07:00
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
|
2008-08-01 20:30:46 -07:00
|
|
|
use Perl::Critic;
|
|
|
|
|
2008-07-29 19:03:26 -07:00
|
|
|
my @FILES = qw(
|
2008-08-01 20:30:46 -07:00
|
|
|
buttbot.pl
|
|
|
|
Butts.pm
|
|
|
|
t/Butts.t
|
|
|
|
critique.pl
|
2008-07-29 19:03:26 -07:00
|
|
|
);
|
|
|
|
|
|
|
|
my $critic = new Perl::Critic;
|
|
|
|
|
|
|
|
for my $file (@FILES) {
|
2008-08-01 20:30:46 -07:00
|
|
|
print "Critiquing $file...\n";
|
|
|
|
print $critic->critique($file);
|
2008-07-29 19:03:26 -07:00
|
|
|
}
|