Commit | Line | Data |
0fe5201a |
1 | use Test::More; |
2 | |
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}; |
6 | |
7eb4ecc8 |
7 | my @modules = sort { $a cmp $b } (all_modules()); |
8 | plan tests => scalar(@modules); |
9 | |
10 | my $exceptions = { |
11 | 'DBIx::Class' => { |
12 | ignore => [ |
13 | qw/MODIFY_CODE_ATTRIBUTES |
14 | component_base_class |
15 | mk_classdata/ |
16 | ] |
17 | }, |
18 | 'DBIx::Class::ResultSetProxy' => { skip => 1 }, |
19 | 'DBIx::Class::ResultSourceProxy' => { skip => 1 }, |
20 | 'DBIx::Class::Componentised' => { skip => 1 }, |
21 | }; |
22 | |
23 | foreach my $module (@modules) { |
24 | SKIP: |
25 | { |
26 | skip "No real methods", 1 if ($exceptions->{$module}{skip}); |
27 | |
28 | # build parms up from ignore list |
29 | my $parms = {}; |
30 | $parms->{trustme} = |
31 | [ map { qr/^$_$/ } @{ $exceptions->{$module}{ignore} } ] |
32 | if exists($exceptions->{$module}{ignore}); |
33 | |
34 | # run the test with the potentially modified parm set |
35 | pod_coverage_ok($module, $parms, "$module POD coverage"); |
36 | } |
37 | } |