From 3964baeb2e155bf4498e92010616d9eee4a51647 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 6 Jul 2009 03:57:33 +0000
Subject: [PATCH] Add POD_COVERAGE==3 switch to find empty POD blocks.

---
 t/POD.t | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/t/POD.t b/t/POD.t
index 43804b7cc..098d5da5d 100644
--- a/t/POD.t
+++ b/t/POD.t
@@ -29,8 +29,9 @@ plan tests => $moduleCount;
 use Data::Dumper;
 foreach my $package (sort @modules) {
 	my $pc = Pod::Coverage->new(
-        package=>$package,
-        also_private => [ qr/definition/ ],
+        package       => $package,
+        also_private  => [ qr/definition/ ],
+        nonwhitespace => ($ENV{POD_COVERAGE} == 3 ? 1 : 0),
     );
     my $coverage   = $pc->coverage > $threshold;
     my $goodReason = $pc->why_unrated() eq 'no public symbols defined';
@@ -39,6 +40,7 @@ foreach my $package (sort @modules) {
         ok($coverage, sprintf "%s has %d%% POD coverage", $package, $pc->coverage*100);
         if (!$coverage && $ENV{POD_COVERAGE}) {
             diag Dumper [$pc->naked];
+            diag $pc->why_unrated;
         }
     }
 }