1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
use strict;
use Test::More;
eval "use Test::Pod::Coverage 1.08";
plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage" if $@;
## Eventually we would be able to test coverage for all modules with
## Test::Pod::all_pod_files(), but let's write the docs first.
my %modules = (
'Data::ObjectDriver::BaseObject' => { also_private => [ qr{ \A is_same_array \z }xms ], },
'Data::ObjectDriver::Errors' => 1,
'Data::ObjectDriver::SQL' => 1,
'Data::ObjectDriver::Driver::DBD' => 1,
);
plan tests => scalar keys %modules;
while (my ($module, $params) = each %modules) {
pod_coverage_ok($module, ref $params ? $params : ());
}
|
