zimbardo/bin/critic.pl

#!/usr/bin/perl

use warnings;
use strict;

use Perl::Critic;

my @files = @ARGV;
@files = glob('lib/*.pm lib/*/*.pm lib/*/*/*.pm') unless @files;

foreach my $file ( @files ) {
        my $critic = Perl::Critic->new( -theme => 'moose' );
        my @violations = $critic->critique($file);
        print "# $file\n",@violations;
}

1	dpavlin	1132	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use Perl::Critic;
7
8			my @files = @ARGV;
9			@files = glob('lib/.pm lib//.pm lib///.pm') unless @files;
10
11			foreach my $file ( @files ) {
12			my $critic = Perl::Critic->new( -theme => 'moose' );
13			my @violations = $critic->critique($file);
14			print "# $file\n",@violations;
15			}
16