X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpod_coverage.t;h=1f6b5ba86b4e6f67c5884aff0514ba0b257ff141;hb=1d8f590fbf75a975c11561bde4c05ad537018e3a;hp=dcedee48bbac8bdf0a3cd57fe43c0e8ec3aefedc;hpb=a1813a8a181c76fa24939a8c663f6463c57c4a3e;p=gitmo%2FMoose.git

diff --git a/t/pod_coverage.t b/t/pod_coverage.t
index dcedee4..1f6b5ba 100644
--- a/t/pod_coverage.t
+++ b/t/pod_coverage.t
@@ -8,4 +8,30 @@ use Test::More;
 eval "use Test::Pod::Coverage 1.04";
 plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
 
-all_pod_coverage_ok( { trustme => [ qr/intialize_body/ ] } );
+# This is a stripped down version of all_pod_coverage_ok which lets us
+# vary the trustme parameter per module.
+my @modules = all_modules();
+plan tests => scalar @modules;
+
+my %trustme = (
+    'Moose' => ['make_immutable'],
+    '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 )
+    ],
+);
+
+for my $module ( sort @modules ) {
+    my $trustme = [];
+    if ( $trustme{$module} ) {
+        my $methods = join '|', @{ $trustme{$module} };
+        $trustme = [qr/$methods/];
+    }
+
+    pod_coverage_ok(
+        $module, { trustme => $trustme },
+        "Pod coverage for $module"
+    );
+}