/[Frey]/branches/zimbardo/bin/critic.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /branches/zimbardo/bin/critic.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1172 - (show annotations)
Sun Jul 5 21:40:16 2009 UTC (14 years, 8 months ago) by dpavlin
File MIME type: text/plain
File size: 311 byte(s)
branch for localisation

1 #!/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

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26