blob: f979796129b3f3049595cba86f7a1d6f5c50f5b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
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 = qw(
Addfile
Hexdigest
B64digest
shaclose
shadump
shadup
shaload
shaopen
sharewind
shawrite
);
all_pod_coverage_ok( { also_private => \@privfcns } );
|
