#!perl #=============================================================================== # # t/pod.t # # DESCRIPTION # Test script to check POD. # # COPYRIGHT # Copyright (C) 2015 Steve Hay. All rights reserved. # # LICENCE # This script is free software; you can redistribute it and/or modify it under # the same terms as Perl itself, i.e. under the terms of either the GNU # General Public License or the Artistic License, as specified in the LICENCE # file. # #=============================================================================== use 5.008001; use strict; use warnings; use Test::More; #=============================================================================== # MAIN PROGRAM #=============================================================================== MAIN: { plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING}; my $ok = eval { require Test::Pod; Test::Pod->import(); 1; }; if (not $ok) { plan skip_all => 'Test::Pod required to test POD'; } elsif ($Test::Pod::VERSION < 1.00) { plan skip_all => 'Test::Pod 1.00 or higher required to test POD'; } else { all_pod_files_ok(); } } #===============================================================================