Parent Directory | Revision Log
critic my code using Perl::Critic::Moose
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 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |