No need to be so fancy

[gitmo/MooseX-ClassAttribute.git] / t / pod-coverage.t

diff --git a/t/pod-coverage.t b/t/pod-coverage.t
index aa1f35b..3ec1bf6 100644 (file)
--- a/t/pod-coverage.t
+++ b/t/pod-coverage.t
@@ -3,7 +3,6 @@ use warnings;
 
 use Test::More;
 
-
 plan skip_all => 'This test is only run for the module author'
     unless -d '.svn' || $ENV{IS_MAINTAINER};
 
@@ -11,4 +10,27 @@ 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();
+# 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 =
+    ( 'MooseX::ClassAttribute'                         => [ 'init_meta', 'class_has' ],
+      'MooseX::ClassAttribute::Meta::Method::Accessor' => [ '.+' ]
+    );
+
+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"
+                   );
+}