#!perl
# $Id$
# $Source$
# $Author$
# $HeadURL$
# $Revision$
# $Date$
use Test::More;
if ($ENV{TEST_COVERAGE}) {
plan( skip_all => 'Disabled when testing coverage.' );
}
if ( not $ENV{CLASS_DOT_AUTHOR} ) {
my $msg = 'Author test. Set $ENV{CLASS_DOT_AUTHOR} to a true value to run.';
plan( skip_all => $msg );
}
eval "use Test::Pod::Coverage 1.04";
plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
my $trustme = { trustme => [qr/^(BUILD|subname|DEMOLISH)$/] };
all_pod_coverage_ok($trustme);
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 78
# End:
# vim: expandtab tabstop=4 shiftwidth=4 shiftround