X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fpod_coverage.t;h=24e2c69978496b8b101f614ece4eaa2750ce3a51;hb=f792d3f565e22532588cf0f39993127530fe5eb0;hp=e0170559a89afefd2f03d2130189b198344db0e0;hpb=f902c2f2b8c692c13513048b2aff27c68d41e4cb;p=gitmo%2FClass-MOP.git

diff --git a/xt/pod_coverage.t b/xt/pod_coverage.t
index e017055..24e2c69 100644
--- a/xt/pod_coverage.t
+++ b/xt/pod_coverage.t
@@ -16,17 +16,82 @@ plan tests => scalar @modules;
 my %trustme = (
     'Class::MOP::Attribute' => ['process_accessors'],
     'Class::MOP::Class'     => [
-        qw( reset_package_cache_flag update_package_cache_flag
-            add_meta_instance_dependencies remove_meta_instance_dependencies
-            update_meta_instance_dependencies add_dependent_meta_instance
-            remove_dependent_meta_instance invalidate_meta_instances
-            invalidate_meta_instance
-            construct_instance
-            clone_instance
-            compute_all_applicable_methods
-            alias_method
+        # deprecated
+        'alias_method',
+        'compute_all_applicable_methods',
+
+        # unfinished feature
+        'add_dependent_meta_instance',
+        'add_meta_instance_dependencies',
+        'invalidate_meta_instance',
+        'invalidate_meta_instances',
+        'remove_dependent_meta_instance',
+        'remove_meta_instance_dependencies',
+        'update_meta_instance_dependencies',
+
+        # effectively internal
+        'check_metaclass_compatibility',
+        'clone_instance',
+        'construct_class_instance',
+        'construct_instance',
+        'create_immutable_transformer',
+        'create_meta_instance',
+        'get_immutable_options',
+        'reset_package_cache_flag',
+        'update_package_cache_flag',
+        'wrap_method_body',
+
+        # doc'd under get_all_attributes
+        'compute_all_applicable_attributes',
+
+    ],
+
+    'Class::MOP::Immutable' => [
+        qw( create_immutable_metaclass
+            create_methods_for_immutable_metaclass
+            make_metaclass_immutable
+            make_metaclass_mutable )
+    ],
+
+    'Class::MOP::Instance' => [
+        qw( BUILDARGS
+            bless_instance_structure
+            is_dependent_on_superclasses ),
+    ],
+
+    'Class::MOP::Method::Accessor' => [
+        qw( generate_accessor_method
+            generate_accessor_method_inline
+            generate_clearer_method
+            generate_clearer_method_inline
+            generate_predicate_method
+            generate_predicate_method_inline
+            generate_reader_method
+            generate_reader_method_inline
+            generate_writer_method
+            generate_writer_method_inline
+            initialize_body
+            )
+    ],
+
+    'Class::MOP::Method::Constructor' => [
+        qw( attributes
+            generate_constructor_method
+            generate_constructor_method_inline
+            initialize_body
+            meta_instance
             )
     ],
+
+    'Class::MOP::Method::Generated' => [
+        qw( new
+            definition_context
+            is_inline
+            initialize_body
+            )
+    ],
+
+    'Class::MOP::Module' => ['create'],
 );
 
 for my $module ( sort @modules ) {