test pod coverage as far as applicable

diff --git a/Changes b/Changes
index 30bd1b878b8cb8a5a91ff3e3bcd9411934f245ea..a8d2b277d0747c38c1a66dc20877dce65077230a 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,4 @@
+- Test pod coverage
 - %header values containing newlines will be sent as multiple fields
 - All modules use warnings and contain a $VERSION
 - Fix META.yml syntax

diff --git a/t/pod-coverage.t b/t/pod-coverage.t
new file mode 100644 (file)
index 0000000..6a61ac4
--- /dev/null
+++ b/t/pod-coverage.t
@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+use lib 'lib';
+
+use Test::More;
+eval 'use Test::Pod::Coverage';
+plan skip_all => "Test::Pod::Coverage required for testing POD coverage" if $@;
+
+plan tests => 1;
+pod_coverage_ok($_, {nonwhitespace => 1}, $_) for 'PLP::Functions';
+
+# Other modules can be assumed either private (Tie::*),
+# simple includes (Backend::* - generally only accessed by constructor),
+# or both (Fields - defying Coverage because it just exports variables).
+