#!perl -T
use
5.006;
unless
(
$ENV
{RELEASE_TESTING} ) {
plan(
skip_all
=>
"Author tests not required for installation"
);
}
my
$min_tpc
= 1.08;
eval
"use Test::Pod::Coverage $min_tpc"
;
plan
skip_all
=>
"Test::Pod::Coverage $min_tpc required for testing POD coverage"
if
$@;
my
$min_pc
= 0.18;
eval
"use Pod::Coverage $min_pc"
;
plan
skip_all
=>
"Pod::Coverage $min_pc required for testing POD coverage"
if
$@;
my
@submodules
= all_modules();
my
$testplan
= 0;
foreach
my
$submodule
(
@submodules
) {
$testplan
++
unless
(
$submodule
=~ /\:\:\_/o);
}
plan
tests
=>
$testplan
;
foreach
my
$submodule
(
@submodules
) {
pod_coverage_ok(
$submodule
)
unless
(
$submodule
=~ /\:\:\_/o);
}