blob: d8b14229dea5ada0e5273fc21cb33d8d3f2afd3c (
plain) (
blame)
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
|
use strict;
use warnings;
use Test::More;
eval "use Test::Pod::Coverage 1.04";
plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
my @modules = sort { $a cmp $b } (Test::Pod::Coverage::all_modules());
@modules = grep {!/^ComponentUI::/} @modules;
plan tests => scalar(@modules);
# methods to ignore on all modules
my $exceptions = {
ignore => [
qw/ BUILD build_ can_ clear_ has_ do_ adopt_ accept_
apply_ layout value meta /
]
};
foreach my $module (@modules) {
# build parms up from ignore list
my $parms = {};
$parms->{trustme} =
[ map { qr/^$_/ } @{ $exceptions->{ignore} } ]
if exists($exceptions->{ignore});
# run the test with the potentially modified parm set
pod_coverage_ok($module, $parms, "$module POD coverage");
}
|