8 eval "use Test::Pod::Coverage 1.04";
9 plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
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;
17 'Class::MOP::Attribute' => ['process_accessors'],
18 'Class::MOP::Class' => [
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
26 compute_all_applicable_methods
32 for my $module ( sort @modules ) {
34 if ( $trustme{$module} ) {
35 my $methods = join '|', @{ $trustme{$module} };
36 $trustme = [qr/$methods/];
40 $module, { trustme => $trustme },
41 "Pod coverage for $module"