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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
my $MODULE;
BEGIN {
$MODULE = (-d "src") ? "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 } );
|
