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' => [ |
4054ae31 |
19 | # deprecated |
20 | 'alias_method', |
21 | 'compute_all_applicable_methods', |
22 | |
23 | # unfinished feature |
24 | 'add_dependent_meta_instance', |
25 | 'add_meta_instance_dependencies', |
26 | 'invalidate_meta_instance', |
27 | 'invalidate_meta_instances', |
28 | 'remove_dependent_meta_instance', |
29 | 'remove_meta_instance_dependencies', |
30 | 'update_meta_instance_dependencies', |
31 | |
32 | # effectively internal |
33 | 'check_metaclass_compatibility', |
34 | 'clone_instance', |
35 | 'construct_class_instance', |
36 | 'construct_instance', |
37 | 'create_immutable_transformer', |
38 | 'create_meta_instance', |
39 | 'get_immutable_options', |
40 | 'reset_package_cache_flag', |
41 | 'update_package_cache_flag', |
42 | 'wrap_method_body', |
43 | |
44 | # doc'd under get_all_attributes |
45 | 'compute_all_applicable_attributes', |
46 | |
c02d53a4 |
47 | ], |
2ca3697e |
48 | |
49 | 'Class::MOP::Immutable' => [ |
50 | qw( create_immutable_metaclass |
51 | create_methods_for_immutable_metaclass |
52 | make_metaclass_immutable |
53 | make_metaclass_mutable ) |
54 | ], |
9f32bdd8 |
55 | ); |
56 | |
57 | for my $module ( sort @modules ) { |
58 | my $trustme = []; |
59 | if ( $trustme{$module} ) { |
60 | my $methods = join '|', @{ $trustme{$module} }; |
61 | $trustme = [qr/$methods/]; |
62 | } |
63 | |
64 | pod_coverage_ok( |
65 | $module, { trustme => $trustme }, |
66 | "Pod coverage for $module" |
67 | ); |
68 | } |