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 'Moose' => ['make_immutable'],
18 'Moose::Meta::Attribute' => [ 'interpolate_class', 'throw_error' ],
19 'Moose::Meta::Class' => [
20 qw( check_metaclass_compatibility
23 create_immutable_transformer
27 'Moose::Meta::Method' => ['throw_error'],
28 'Moose::Meta::Method::Constructor' =>
29 [qw( initialize_body intialize_body)],
30 'Moose::Meta::Method::Destructor' => ['initialize_body'],
46 for my $module ( sort @modules ) {
48 if ( $trustme{$module} ) {
49 my $methods = join '|', @{ $trustme{$module} };
50 $trustme = [qr/^(?:$methods)$/];
54 $module, { trustme => $trustme },
55 "Pod coverage for $module"