# perl_critic test
use strict ;
use warnings ;
use Term::ANSIColor qw(:constants) ;
#~ use Test::More skip_all => 'perl_critic' ;
use Test::Perl::Critic
-severity => 1,
#~ -format => "[%s] %m at '%f:%l:%c' rule %p %e\n\t%r",
-format => "[%s] %m at " . BOLD . BLUE . "'%f:%l:%c'" . RESET . " rule " . BOLD . RED . "%p %e\n" . RESET
. "\t%r",
#~ -format => "[%s] %m at " . BOLD . BLUE . "%F:%l" . RESET . ". %e\n",
-exclude =>
[
'Miscellanea::RequireRcsKeywords',
'NamingConventions::ProhibitMixedCaseSubs',
'ControlStructures::ProhibitPostfixControls',
'CodeLayout::ProhibitParensWithBuiltins',
'Documentation::RequirePodAtEnd',
'ControlStructures::ProhibitUnlessBlocks',
'CodeLayout::RequireTidyCode',
'CodeLayout::ProhibitHardTabs',
'CodeLayout::ProhibitTrailingWhitespace' ,
'ValuesAndExpressions::ProhibitCommaSeparatedStatements', # too many false positives. See RT #27654
],
-profile => 'xt/author/perlcriticrc' ;
all_critic_ok() ;