#!perl
#
# This file is part of XML-Jing
#
# This software is copyright (c) 2013 by BYU Translation Research Group.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use
strict;
use
warnings;
use
Test::More;
foreach
my
$env_skip
(
qw(
SKIP_POD_LINKCHECK
)
){
plan
skip_all
=>
"\$ENV{$env_skip} is set, skipping"
if
$ENV
{
$env_skip
};
}
eval
"use Test::Pod::LinkCheck"
;
if
( $@ ) {
plan
skip_all
=>
'Test::Pod::LinkCheck required for testing POD'
;
}
else
{
Test::Pod::LinkCheck->new->all_pod_ok;
}