The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Digest::SHA;

my $skip;

BEGIN {
	eval "use Test::More";
	$skip = $@ ? 1 : 0;
	unless ($skip) {
		eval "use Test::Pod::Coverage 0.08";
		$skip = 2 if $@;
	}
}

if ($skip == 1) {
	print "1..0 # Skipped: Test::More not installed\n";
	exit;
}

if ($skip == 2) {
	print "1..0 # Skipped: Test::Pod::Coverage 0.08 required\n";
	exit;
}

my @privfcns = qw(
	newSHA
	shainit
	sharewind
	shawrite
);

all_pod_coverage_ok( { also_private => \@privfcns } );