Blame t/pod.t

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