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
|
#!/usr/bin/env perl
#
# $Id: 03pod-coverage.t 11 2007-04-09 04:34:01Z hironori.yoshida $
#
use strict;
use warnings;
use version; our $VERSION = qv('1.0.3');
use blib;
use English qw(-no_match_vars);
use FindBin qw($Bin);
use Test::Base;
if ( $ENV{TEST_POD} || $ENV{TEST_ALL} || !$ENV{HARNESS_ACTIVE} ) {
chdir "$Bin/..";
eval {
require Test::Pod::Coverage;
Test::Pod::Coverage->import;
};
if ($EVAL_ERROR) {
plan skip_all =>
'Test::Pod::Coverage required for testing POD coverage';
}
}
else {
plan skip_all => 'set TEST_POD for testing POD coverage';
}
all_pod_coverage_ok();
|
