Commit | Line | Data |
9f32bdd8 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | |
8 | eval "use Test::Pod::Coverage 1.04"; |
9 | plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; |
10 | |
11 | # This is a stripped down version of all_pod_coverage_ok which lets us |
12 | # vary the trustme parameter per module. |
13 | my @modules = all_modules(); |
14 | plan tests => scalar @modules; |
15 | |
16 | my %trustme = ( |
17 | 'Class::MOP::Attribute' => ['process_accessors'], |
c02d53a4 |
18 | 'Class::MOP::Class' => [ |
f902c2f2 |
19 | qw( reset_package_cache_flag update_package_cache_flag |
20 | add_meta_instance_dependencies remove_meta_instance_dependencies |
21 | update_meta_instance_dependencies add_dependent_meta_instance |
22 | remove_dependent_meta_instance invalidate_meta_instances |
23 | invalidate_meta_instance |
24 | construct_instance |
25 | clone_instance |
26 | compute_all_applicable_methods |
27 | alias_method |
28 | ) |
c02d53a4 |
29 | ], |
9f32bdd8 |
30 | ); |
31 | |
32 | for my $module ( sort @modules ) { |
33 | my $trustme = []; |
34 | if ( $trustme{$module} ) { |
35 | my $methods = join '|', @{ $trustme{$module} }; |
36 | $trustme = [qr/$methods/]; |
37 | } |
38 | |
39 | pod_coverage_ok( |
40 | $module, { trustme => $trustme }, |
41 | "Pod coverage for $module" |
42 | ); |
43 | } |