my $MODULE; BEGIN { $MODULE = (-e "SHA.pm") ? "Digest::SHA" : "Digest::SHA::PurePerl"; eval "require $MODULE" || die $@; $MODULE->import(qw()); } BEGIN { if ($ENV{PERL_CORE}) { chdir 't' if -d 't'; @INC = '../lib'; } } BEGIN { eval "use Test::More"; if ($@) { print "1..0 # Skipped: Test::More not installed\n"; exit; } } eval "use Test::Pod::Coverage 0.08"; plan skip_all => "Test::Pod::Coverage 0.08 required for testing POD coverage" if $@; my @privfcns = (); if ($MODULE eq "Digest::SHA") { @privfcns = qw( Addfile B64digest Hexdigest shaclose shadump shadup shaload shaopen sharewind shawrite ); } all_pod_coverage_ok( { also_private => \@privfcns } );