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;
23 'in_global_destruction',
25 'Class::MOP::Attribute' => ['process_accessors'],
26 'Class::MOP::Class' => [
29 'compute_all_applicable_attributes',
30 'compute_all_applicable_methods',
33 'add_dependent_meta_instance',
34 'add_meta_instance_dependencies',
35 'invalidate_meta_instance',
36 'invalidate_meta_instances',
37 'remove_dependent_meta_instance',
38 'remove_meta_instance_dependencies',
39 'update_meta_instance_dependencies',
41 # effectively internal
42 'check_metaclass_compatibility',
44 'construct_class_instance',
46 'create_meta_instance',
47 'reset_package_cache_flag',
48 'update_package_cache_flag',
51 # doc'd with rebless_instance
52 'rebless_instance_away',
57 'Class::MOP::Class::Immutable::Trait' => ['.+'],
58 'Class::MOP::Class::Immutable::Class::MOP::Class' => ['.+'],
59 'Class::MOP::Deprecated' => ['.+'],
60 'Class::MOP::Instance' => [
62 bless_instance_structure
63 is_dependent_on_superclasses ),
65 'Class::MOP::Instance' => [
67 bless_instance_structure
68 is_dependent_on_superclasses ),
70 'Class::MOP::Method::Accessor' => [
71 qw( generate_accessor_method
72 generate_accessor_method_inline
73 generate_clearer_method
74 generate_clearer_method_inline
75 generate_predicate_method
76 generate_predicate_method_inline
77 generate_reader_method
78 generate_reader_method_inline
79 generate_writer_method
80 generate_writer_method_inline
84 'Class::MOP::Method::Constructor' => [
86 generate_constructor_method
87 generate_constructor_method_inline
93 'Class::MOP::Method::Generated' => [
100 'Class::MOP::MiniTrait' => ['.+'],
101 'Class::MOP::Mixin::AttributeCore' => ['.+'],
102 'Class::MOP::Mixin::HasAttributes' => ['.+'],
103 'Class::MOP::Mixin::HasMethods' => ['.+'],
104 'Class::MOP::Module' => ['create'],
105 'Class::MOP::Package' => [ 'get_method_map', 'wrap_method_body' ],
106 'Moose::Error::Confess' => ['new'],
107 'Moose::Meta::Attribute' => [
108 qw( interpolate_class
113 'Moose::Meta::Attribute::Native::MethodProvider::Array' => ['.+'],
114 'Moose::Meta::Attribute::Native::MethodProvider::Bool' => ['.+'],
115 'Moose::Meta::Attribute::Native::MethodProvider::Code' => ['.+'],
116 'Moose::Meta::Attribute::Native::MethodProvider::Counter' => ['.+'],
117 'Moose::Meta::Attribute::Native::MethodProvider::Hash' => ['.+'],
118 'Moose::Meta::Attribute::Native::MethodProvider::String' => ['.+'],
119 'Moose::Meta::Class' => [
120 qw( check_metaclass_compatibility
128 'Moose::Meta::Class::Immutable::Trait' => ['.+'],
129 'Moose::Meta::Method' => ['throw_error'],
130 'Moose::Meta::Method::Accessor' => [
131 qw( generate_accessor_method
132 generate_accessor_method_inline
133 generate_clearer_method
134 generate_predicate_method
135 generate_reader_method
136 generate_reader_method_inline
137 generate_writer_method
138 generate_writer_method_inline
141 'Moose::Meta::Method::Constructor' => [
149 'Moose::Meta::Method::Destructor' => [ 'initialize_body', 'options' ],
150 'Moose::Meta::Method::Meta' => ['wrap'],
151 'Moose::Meta::Role' => [
153 get_method_modifier_list
155 reset_package_cache_flag
156 update_package_cache_flag
160 'Moose::Meta::Mixin::AttributeCore' => ['.+'],
161 'Moose::Meta::Role::Composite' =>
162 [ 'get_method', 'get_method_list', 'has_method', 'add_method' ],
175 'Moose::Meta::TypeCoercion' => ['compile_type_coercion'],
176 'Moose::Meta::TypeCoercion::Union' => ['compile_type_coercion'],
177 'Moose::Meta::TypeConstraint' => ['compile_type_constraint'],
178 'Moose::Meta::TypeConstraint::Class' =>
179 [qw( equals is_a_type_of is_a_subtype_of )],
180 'Moose::Meta::TypeConstraint::Enum' => [qw( constraint equals )],
181 'Moose::Meta::TypeConstraint::DuckType' =>
182 [qw( constraint equals get_message )],
183 'Moose::Meta::TypeConstraint::Parameterizable' => ['.+'],
184 'Moose::Meta::TypeConstraint::Parameterized' => ['.+'],
185 'Moose::Meta::TypeConstraint::Role' => [qw( equals is_a_type_of )],
186 'Moose::Meta::TypeConstraint::Union' =>
187 [qw( compile_type_constraint coercion has_coercion)],
188 'Moose::Util' => ['add_method_modifier'],
189 'Moose::Util::MetaRole' => ['apply_metaclass_roles'],
190 'Moose::Util::TypeConstraints' => ['find_or_create_type_constraint'],
193 for my $module ( sort @modules ) {
196 if ( $trustme{$module} ) {
197 my $methods = join '|', @{ $trustme{$module} };
198 $trustme = [qr/^(?:$methods)$/];
202 $module, { trustme => $trustme },
203 "Pod coverage for $module"