Commit | Line | Data |
5a1fdc82 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | |
8 | use Test::Requires { |
9 | 'Test::Pod::Coverage' => '1.04', |
10 | 'Pod::Coverage::Moose' => '0.02', |
11 | }; |
12 | |
13 | my %skip = map { $_ => 1 } qw( MooseX::Types::CheckedUtilExports ); |
14 | |
87608b6e |
15 | my @modules = grep { !$skip{$_} } all_modules(); |
5a1fdc82 |
16 | |
87608b6e |
17 | my %trustme; |
5a1fdc82 |
18 | |
19 | for my $module ( sort @modules ) { |
20 | my $trustme = []; |
21 | |
22 | if ( $trustme{$module} ) { |
23 | if ( ref $trustme{$module} eq 'ARRAY' ) { |
24 | my $methods = join '|', @{ $trustme{$module} }; |
25 | $trustme = [qr/^(?:$methods)$/]; |
26 | } |
27 | else { |
28 | $trustme = [ $trustme{$module} ]; |
29 | } |
30 | } |
31 | |
32 | push @{$trustme}, qr/^BUILD$/; |
33 | |
34 | pod_coverage_ok( |
35 | $module, { |
36 | coverage_class => 'Pod::Coverage::Moose', |
37 | trustme => $trustme, |
38 | }, |
39 | "Pod coverage for $module" |
40 | ); |
41 | } |
42 | |
43 | done_testing(); |