1package main; 2 3use strict; 4use warnings; 5 6use File::Spec; 7 8use Test::More 0.88; 9 10BEGIN { 11 eval { 12 require PPI; 13 PPI->VERSION( 1.215 ); 14 1; 15 } or do { 16 print "1..0 # skip PPI 1.215 or greater required to criticize code.\n"; 17 exit; 18 }; 19 eval { 20 require Test::Perl::Critic; 21 # TODO package profile. 22 Test::Perl::Critic->import( 23 -profile => File::Spec->catfile(qw{xt author perlcriticrc}), 24 ); 25 1; 26 } or do { 27 print "1..0 # skip Test::Perl::Critic required to criticize code.\n"; 28 exit; 29 }; 30} 31 32all_critic_ok(); 33 341; 35 36# ex: set textwidth=72 : 37