Fix pod coverage test to actually exclude things that should be

[gitmo/Moose.git] / xt / pod_coverage.t

diff --git a/xt/pod_coverage.t b/xt/pod_coverage.t
index 8e15c61..077cbf4 100644 (file)
--- a/xt/pod_coverage.t
+++ b/xt/pod_coverage.t
@@ -16,12 +16,64 @@ plan tests => scalar @modules;
 my %trustme = (
     'Moose'                  => ['make_immutable'],
     'Moose::Meta::Attribute' => [ 'interpolate_class', 'throw_error' ],
-    'Moose::Meta::Method::Constructor' =>
-        [qw( initialize_body intialize_body)],
-    'Moose::Meta::Method::Destructor' => ['initialize_body'],
-    'Moose::Role'                     => [
-        qw( after around augment before extends has inner make_immutable override super with )
+    'Moose::Meta::Class'     => [
+        qw( check_metaclass_compatibility
+            construct_instance
+            create_error
+            create_immutable_transformer
+            raise_error
+            )
     ],
+    'Moose::Meta::Method'           => ['throw_error'],
+    'Moose::Meta::Method::Accessor' => [
+        qw( generate_accessor_method
+            generate_accessor_method_inline
+            generate_clearer_method
+            generate_predicate_method
+            generate_reader_method
+            generate_reader_method_inline
+            generate_writer_method
+            generate_writer_method_inline
+            )
+    ],
+    'Moose::Meta::Method::Constructor' => [
+        qw( attributes
+            generate_constructor_method
+            generate_constructor_method_inline
+            initialize_body
+            meta_instance
+            new
+            options
+            )
+    ],
+    'Moose::Meta::Method::Destructor' => [ 'initialize_body', 'options' ],
+    'Moose::Meta::Role'               => [
+        qw( alias_method
+            get_method_modifier_list
+            reset_package_cache_flag
+            update_package_cache_flag
+            wrap_method_body
+            )
+    ],
+    'Moose::Meta::Role::Composite' => ['add_method'],
+    'Moose::Role'                  => [
+        qw( after
+            around
+            augment
+            before
+            extends
+            has
+            inner
+            make_immutable
+            override
+            super
+            with )
+    ],
+    'Moose::Meta::TypeCoercion::Union' => ['compile_type_coercion'],
+    'Moose::Meta::TypeConstraint' => [ 'compile_type_constraint', 'union' ],
+    'Moose::Meta::TypeConstraint::Class' =>
+        [qw( equals is_a_type_of is_a_subtype_of )],
+    'Moose::Meta::TypeConstraint::Union' => ['compile_type_constraint'],
 );
 
 for my $module ( sort @modules ) {