9 'Test::Pod::Coverage' => '1.04', # skip all if not installed
12 # This is a stripped down version of all_pod_coverage_ok which lets us
13 # vary the trustme parameter per module.
15 = grep { !/Accessor::Native.*$/ && !/::Conflicts$/ } all_modules();
16 plan tests => scalar @modules;
24 'in_global_destruction',
25 'check_package_cache_flag',
26 'load_first_existing_class',
28 'Class::MOP::Attribute' => ['process_accessors'],
29 'Class::MOP::Class' => [
32 'compute_all_applicable_attributes',
33 'compute_all_applicable_methods',
36 'add_dependent_meta_instance',
37 'add_meta_instance_dependencies',
38 'invalidate_meta_instance',
39 'invalidate_meta_instances',
40 'remove_dependent_meta_instance',
41 'remove_meta_instance_dependencies',
42 'update_meta_instance_dependencies',
44 # effectively internal
45 'check_metaclass_compatibility',
47 'construct_class_instance',
49 'create_meta_instance',
50 'reset_package_cache_flag',
51 'update_package_cache_flag',
54 # doc'd with rebless_instance
55 'rebless_instance_away',
60 'Class::MOP::Class::Immutable::Trait' => ['.+'],
61 'Class::MOP::Class::Immutable::Class::MOP::Class' => ['.+'],
62 'Class::MOP::Deprecated' => ['.+'],
63 'Class::MOP::Instance' => [
65 bless_instance_structure
66 is_dependent_on_superclasses ),
68 'Class::MOP::Instance' => [
70 bless_instance_structure
71 is_dependent_on_superclasses ),
73 'Class::MOP::Method::Accessor' => [
74 qw( generate_accessor_method
75 generate_accessor_method_inline
76 generate_clearer_method
77 generate_clearer_method_inline
78 generate_predicate_method
79 generate_predicate_method_inline
80 generate_reader_method
81 generate_reader_method_inline
82 generate_writer_method
83 generate_writer_method_inline
87 'Class::MOP::Method::Constructor' => [
89 generate_constructor_method
90 generate_constructor_method_inline
96 'Class::MOP::Method::Generated' => [
103 'Class::MOP::MiniTrait' => ['.+'],
104 'Class::MOP::Mixin::AttributeCore' => ['.+'],
105 'Class::MOP::Mixin::HasAttributes' => ['.+'],
106 'Class::MOP::Mixin::HasMethods' => ['.+'],
107 'Class::MOP::Package' => [ 'get_method_map', 'wrap_method_body' ],
108 'Moose' => ['init_meta', 'throw_error'],
109 'Moose::Error::Confess' => ['new'],
110 'Moose::Meta::Attribute' => [
111 qw( interpolate_class
116 'Moose::Meta::Attribute::Native::MethodProvider::Array' => ['.+'],
117 'Moose::Meta::Attribute::Native::MethodProvider::Bool' => ['.+'],
118 'Moose::Meta::Attribute::Native::MethodProvider::Code' => ['.+'],
119 'Moose::Meta::Attribute::Native::MethodProvider::Counter' => ['.+'],
120 'Moose::Meta::Attribute::Native::MethodProvider::Hash' => ['.+'],
121 'Moose::Meta::Attribute::Native::MethodProvider::String' => ['.+'],
122 'Moose::Meta::Class' => [
123 qw( check_metaclass_compatibility
131 'Moose::Meta::Class::Immutable::Trait' => ['.+'],
132 'Moose::Meta::Method' => ['throw_error'],
133 'Moose::Meta::Method::Accessor' => [
134 qw( generate_accessor_method
135 generate_accessor_method_inline
136 generate_clearer_method
137 generate_predicate_method
138 generate_reader_method
139 generate_reader_method_inline
140 generate_writer_method
141 generate_writer_method_inline
144 'Moose::Meta::Method::Constructor' => [
152 'Moose::Meta::Method::Destructor' => [ 'initialize_body', 'options' ],
153 'Moose::Meta::Method::Meta' => ['wrap'],
154 'Moose::Meta::Role' => [
156 get_method_modifier_list
158 reset_package_cache_flag
159 update_package_cache_flag
163 'Moose::Meta::Mixin::AttributeCore' => ['.+'],
164 'Moose::Meta::Role::Composite' =>
165 [ 'get_method', 'get_method_list', 'has_method', 'add_method' ],
166 'Moose::Object' => ['BUILDALL', 'DEMOLISHALL'],
180 'Moose::Meta::TypeCoercion' => ['compile_type_coercion'],
181 'Moose::Meta::TypeCoercion::Union' => ['compile_type_coercion'],
182 'Moose::Meta::TypeConstraint' => [qw( compile_type_constraint inlined )],
183 'Moose::Meta::TypeConstraint::Class' =>
184 [qw( equals is_a_type_of is_a_subtype_of )],
185 'Moose::Meta::TypeConstraint::Enum' => [qw( constraint equals )],
186 'Moose::Meta::TypeConstraint::DuckType' =>
187 [qw( constraint equals get_message )],
188 'Moose::Meta::TypeConstraint::Parameterizable' => ['.+'],
189 'Moose::Meta::TypeConstraint::Parameterized' => ['.+'],
190 'Moose::Meta::TypeConstraint::Role' => [qw( equals is_a_type_of )],
191 'Moose::Meta::TypeConstraint::Union' => [
192 qw( compile_type_constraint
198 'Moose::Util' => ['add_method_modifier'],
199 'Moose::Util::MetaRole' => ['apply_metaclass_roles'],
200 'Moose::Util::TypeConstraints' => ['find_or_create_type_constraint'],
201 'Moose::Util::TypeConstraints::Builtins' => ['.+'],
204 for my $module ( sort @modules ) {
207 if ( $trustme{$module} ) {
208 my $methods = join '|', @{ $trustme{$module} };
209 $trustme = [qr/^(?:$methods)$/];
213 $module, { trustme => $trustme },
214 "Pod coverage for $module"