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 } );