#!perl
BEGIN
{
unless
(
$ENV
{AUTHOR_TESTING} ||
$ENV
{RELEASE_TESTING} )
{
plan(
skip_all
=>
'These tests are for author or release candidate testing'
);
}
};
eval
"use Test::Pod::Coverage 1.04; use Pod::Coverage::TrustPod;"
;
plan(
skip_all
=>
"Test::Pod::Coverage 1.04 required for testing POD coverage"
)
if
( $@ );
my
$params
=
{
coverage_class
=>
'Pod::Coverage::TrustPod'
,
trustme
=> [
qr/^(new|init|FREEZE|STORABLE_freeze|STORABLE_thaw|THAW|TO_JSON)$/
]
};
all_pod_coverage_ok(
$params
);