X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fauthor%2Fpod-coverage.t;fp=xt%2Fauthor%2Fpod-coverage.t;h=5b5d246e83b269999b425bd670a5c571b23194ef;hb=845cbcb8b1e2ed2adf1b07cbe2aa196648650e49;hp=0000000000000000000000000000000000000000;hpb=724efd938648e6d6e20b38b0d641fee29977e3ad;p=gitmo%2FMooseX-Singleton.git

diff --git a/xt/author/pod-coverage.t b/xt/author/pod-coverage.t
new file mode 100644
index 0000000..5b5d246
--- /dev/null
+++ b/xt/author/pod-coverage.t
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+
+# 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::Singleton' => ['init_meta'],
+    'MooseX::Singleton::Role::Meta::Class' =>
+        [qw( clear_singleton existing_singleton )],
+    'MooseX::Singleton::Role::Meta::Instance' => ['get_singleton_instance'],
+    'MooseX::Singleton::Role::Object'         => [qw( initialize instance )],
+);
+
+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"
+    );
+}