From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

#!perl -wT
# $Id: /local/Mango/trunk/t/pod_coverage.t 308 2007-05-29T13:08:41.522340Z claco $
use strict;
BEGIN {
use lib 't/lib';
plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
eval 'use Test::Pod::Coverage 1.04';
plan skip_all => 'Test::Pod::Coverage 1.04' if $@;
eval 'use Pod::Coverage 0.14';
plan skip_all => 'Pod::Coverage 0.14 not installed' if $@;
};
my $trustme = {
trustme =>
[qr/^(COMPONENT|destroy|setup|create_result|type|save|begin)$/]
};
all_pod_coverage_ok($trustme);