xt/author/critic.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!perl 
use strict;
use warnings;
use Test::More;
 
eval 'use Test::Perl::Critic';
plan skip_all => 'Test::Perl::Critic required to criticise code' if $@;
Test::Perl::Critic->import( -profile => 'perlcritic.rc' );
require Perl::Critic::Utils;
 
my @files = Perl::Critic::Utils::all_perl_files(-e 'blib' ? 'blib' : 'lib');
 
# don't criticise files generated by Inline::Module 
all_critic_ok(grep { not m{/Inline\.pm$} } @files);