######### # Author: rmp # Last Modified: $Date: 2009-06-09 20:17:59 +0100 (Tue, 09 Jun 2009) $ $Author: zerojinx $ # Id: $Id: 00-critic.t 338 2009-06-09 19:17:59Z zerojinx $ # Source: $Source: /cvsroot/clearpress/clearpress/t/00-critic.t,v $ # $HeadURL: https://clearpress.svn.sourceforge.net/svnroot/clearpress/branches/prerelease-1.26/t/00-critic.t $ # package critic; use strict; use warnings; use Test::More; use English qw(-no_match_vars); our $VERSION = do { my @r = (q$Revision: 338 $ =~ /\d+/mxg); sprintf '%d.'.'%03d' x $#r, @r }; if ( not $ENV{TEST_AUTHOR} ) { my $msg = 'Author test. Set $ENV{TEST_AUTHOR} to a true value to run.'; plan( skip_all => $msg ); } eval { require Test::Perl::Critic; }; if($EVAL_ERROR) { plan skip_all => 'Test::Perl::Critic not installed'; } else { Test::Perl::Critic->import( -severity => 1, -exclude => [qw(tidy ValuesAndExpressions::ProhibitImplicitNewlines NamingConventions::Capitalization)], ); all_critic_ok(); } 1;