"requires" no longer requires non-generated methods

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

diff --git a/xt/pod_coverage.t b/xt/pod_coverage.t
index 1f6b5ba..c615dfc 100644 (file)
--- a/xt/pod_coverage.t
+++ b/xt/pod_coverage.t
@@ -14,12 +14,51 @@ my @modules = all_modules();
 plan tests => scalar @modules;
 
 my %trustme = (
-    'Moose' => ['make_immutable'],
-    'Moose::Meta::Method::Constructor' =>
-        [qw( initialize_body intialize_body)],
+    'Moose'                  => ['make_immutable'],
+    'Moose::Meta::Attribute' => [ 'interpolate_class', 'throw_error' ],
+    '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'],
     'Moose::Role'                     => [
-        qw( after around augment before extends has inner make_immutable override super with )
+        qw( after
+            around
+            augment
+            before
+            extends
+            has
+            inner
+            make_immutable
+            override
+            super
+            with )
     ],
 );
 
@@ -27,7 +66,7 @@ for my $module ( sort @modules ) {
     my $trustme = [];
     if ( $trustme{$module} ) {
         my $methods = join '|', @{ $trustme{$module} };
-        $trustme = [qr/$methods/];
+        $trustme = [qr/^(?:$methods)$/];
     }
 
     pod_coverage_ok(