X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fpod_coverage.t;h=bf70646f52ec27571637b5b222ac752b13f62802;hb=fbedcfb3e98c797922bad3788f9b08063cafebcf;hp=70e658518b45009b91124d4d6eeeb2a9ed39792b;hpb=3b061d8bae1e52a8378725b327d82dfe34e77f09;p=gitmo%2FClass-MOP.git

diff --git a/xt/pod_coverage.t b/xt/pod_coverage.t
index 70e6585..bf70646 100644
--- a/xt/pod_coverage.t
+++ b/xt/pod_coverage.t
@@ -45,6 +45,46 @@ my %trustme = (
         'compute_all_applicable_attributes',
 
     ],
+
+    '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 ) {