1#!/usr/bin/perl 2use strict; 3use warnings; 4 5if ( not $ENV{TEST_AUTHOR} ) { 6 my $msg = 'Author test. Set $ENV{TEST_AUTHOR} to a true value to run.'; 7 print "1..0 8# $msg"; 9 exit 0; 10} 11require Test::More; 12Test::More->import(); 13 14if ( not $ENV{TEST_AUTHOR} ) { 15 my $msg = 'Author test. Set $ENV{TEST_AUTHOR} to a true value to run.'; 16 plan( skip_all => $msg ); 17} 18 19chdir '..' if -d ('../t'); 20 21eval 'use Test::Kwalitee'; 22 23if ( $@ ) { 24 my $msg = 'Test::Kwalitee not installed; skipping'; 25 plan( skip_all => $msg ); 26} 27