1#!perl 2#=============================================================================== 3# 4# t/95_critic.t 5# 6# DESCRIPTION 7# Test script to check Perl::Critic conformance. 8# 9# COPYRIGHT 10# Copyright (C) 2015 Steve Hay. All rights reserved. 11# 12# LICENCE 13# This script is free software; you can redistribute it and/or modify it under 14# the same terms as Perl itself, i.e. under the terms of either the GNU 15# General Public License or the Artistic License, as specified in the LICENCE 16# file. 17# 18#=============================================================================== 19 20use 5.008001; 21 22use strict; 23use warnings; 24 25use Test::More; 26 27#=============================================================================== 28# MAIN PROGRAM 29#=============================================================================== 30 31MAIN: { 32 plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING}; 33 34 my $ok = eval { 35 require Test::Perl::Critic; 36 Test::Perl::Critic->import(-profile => ''); 37 1; 38 }; 39 40 if (not $ok) { 41 plan skip_all => 'Test::Perl::Critic required to test with Perl::Critic'; 42 } 43 else { 44 all_critic_ok('.'); 45 } 46} 47 48#=============================================================================== 49