#!/usr/bin/perl -w use strict; use Test::More; # NOTE: please do not blame me for suggetions from this test. Do not set # TEST_AUTHOR and then tell me about it. Use test at your own risk. if ($ENV{TEST_AUTHOR} ne "author972" ) { plan( skip_all => 'Author test. Set $ENV{TEST_AUTHOR} to true to run.'); } eval "use Test::Pod::Coverage 1.00"; plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD" if $@; all_pod_coverage_ok(); #my @modules = grep { !m/ComputedVector/ } all_modules(); #pod_coverage_ok( $_ ) for @modules; #my $trustme = { trustme => [qr/^(set_size|insert|append|ginsert|set_vector)$/] }; #pod_coverage_ok( "Statistics::Basic::ComputedVector", $trustme );