1#!perl 2#=============================================================================== 3# 4# t/pod.t 5# 6# DESCRIPTION 7# Test script to check POD. 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::Pod; 36 Test::Pod->import(); 37 1; 38 }; 39 40 if (not $ok) { 41 plan skip_all => 'Test::Pod required to test POD'; 42 } 43 elsif ($Test::Pod::VERSION < 1.00) { 44 plan skip_all => 'Test::Pod 1.00 or higher required to test POD'; 45 } 46 else { 47 all_pod_files_ok(); 48 } 49} 50 51#=============================================================================== 52