3 eval "use Test::Pod::Coverage 1.04";
4 plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
5 plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
7 my @modules = sort { $a cmp $b } (all_modules());
8 plan tests => scalar(@modules);
13 qw/MODIFY_CODE_ATTRIBUTES
18 'DBIx::Class::ResultSetProxy' => { skip => 1 },
19 'DBIx::Class::ResultSourceProxy' => { skip => 1 },
20 'DBIx::Class::Componentised' => { skip => 1 },
23 foreach my $module (@modules) {
26 skip "No real methods", 1 if ($exceptions->{$module}{skip});
28 # build parms up from ignore list
31 [ map { qr/^$_$/ } @{ $exceptions->{$module}{ignore} } ]
32 if exists($exceptions->{$module}{ignore});
34 # run the test with the potentially modified parm set
35 pod_coverage_ok($module, $parms, "$module POD coverage");