123456789101112 #!perluse strict;use warnings;use Test::More;use English qw(-no_match_vars);eval "use Test::Perl::Critic";plan skip_all => 'Test::Perl::Critic required to criticise code' if $@;Test::Perl::Critic->import( -profile => "perlcritic.rc" ) if -e "perlcritic.rc";all_critic_ok();
#!perl
use
strict;
warnings;
Test::More;
English
qw(-no_match_vars)
;
eval
"use Test::Perl::Critic"
plan
skip_all
=>
'Test::Perl::Critic required to criticise code'
if
$@;
Test::Perl::Critic->
import
(
-profile
"perlcritic.rc"
)
-e
all_critic_ok();