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::Accessor' => [
29 qw( generate_accessor_method
30 generate_accessor_method_inline
31 generate_clearer_method
32 generate_predicate_method
33 generate_reader_method
34 generate_reader_method_inline
35 generate_writer_method
36 generate_writer_method_inline
39 'Moose::Meta::Method::Constructor' => [
41 generate_constructor_method
42 generate_constructor_method_inline
49 'Moose::Meta::Method::Destructor' => [ 'initialize_body', 'options' ],
50 'Moose::Meta::Role' => [
52 get_method_modifier_list
53 reset_package_cache_flag
54 update_package_cache_flag
58 'Moose::Meta::Role::Composite' => ['add_method'],
72 'Moose::Meta::TypeCoercion::Union' => ['compile_type_coercion'],
73 'Moose::Meta::TypeConstraint' => [ 'compile_type_constraint', 'union' ],
74 'Moose::Meta::TypeConstraint::Class' =>
75 [qw( equals is_a_type_of is_a_subtype_of )],
76 'Moose::Meta::TypeConstraint::Parameterizable' => ['.+'],
77 'Moose::Meta::TypeConstraint::Parameterized' => ['.+'],
78 'Moose::Meta::TypeConstraint::Union' => ['compile_type_constraint'],
79 'Moose::Util' => ['add_method_modifier'],
82 for my $module ( sort @modules ) {
84 if ( $trustme{$module} ) {
85 my $methods = join '|', @{ $trustme{$module} };
86 $trustme = [qr/^(?:$methods)$/];
90 $module, { trustme => $trustme },
91 "Pod coverage for $module"