8 plan skip_all => 'TODO';
10 eval "use Test::Pod::Coverage 1.04";
11 plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
13 # This is a stripped down version of all_pod_coverage_ok which lets us
14 # vary the trustme parameter per module.
15 my @modules = all_modules();
16 plan tests => scalar @modules;
19 'Mouse::Meta::Module' => [
22 'Mouse::Meta::Class' => [
29 'Mouse::Meta::Attribute' => [
35 verify_type_constraint
40 'Mouse::Meta::Method' => [],
41 'Mouse::Meta::Method::Accessor' => [],
42 'Mouse::Meta::Method::Constructor' => [],
43 'Mouse::Meta::Method::Destructor' => [],
44 'Mouse::Meta::Role' => [],
45 'Mouse::Meta::Role::Composite' =>
46 [ 'get_method', 'get_method_list', 'has_method', 'add_method' ],
59 'Mouse::Meta::TypeConstraint' => [
61 compile_type_constraint
67 generate_isa_predicate_for
71 'Mouse::Util::TypeConstraints' => [
72 qw(typecast_constraints)
75 'Mouse::Exporter' => [
80 'Mouse::Spec' => ['.+'],
82 'Squirrel::Role' => ['.+'],
83 'Mouse::TypeRegistry' => ['.+'],
86 for my $module ( sort @modules ) {
88 if ( $trustme{$module} ) {
89 my $methods = join '|', @{ $trustme{$module} };
90 $trustme = [qr/^(?:$methods)$/];
94 $module, { trustme => $trustme },
95 "Pod coverage for $module"