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 'MooseX::Singleton' => ['init_meta'],
18 'MooseX::Singleton::Role::Meta::Class' =>
19 [qw( clear_singleton existing_singleton )],
20 'MooseX::Singleton::Role::Meta::Instance' => ['get_singleton_instance'],
21 'MooseX::Singleton::Role::Object' => [qw( initialize instance )],
24 for my $module ( sort @modules ) {
26 if ( $trustme{$module} ) {
27 my $methods = join '|', @{ $trustme{$module} };
28 $trustme = [qr/^(?:$methods)$/];
32 $module, { trustme => $trustme },
33 "Pod coverage for $module"