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