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