#!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