From 475b73f6e63fda1ba7e771ae8a24acad2468e03c Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 18 Jan 2012 13:16:26 -0800
Subject: [PATCH] Cleaner method for finding module names from package paths.

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

diff --git a/t/POD.t b/t/POD.t
index 03da11e23..dae09ff58 100644
--- a/t/POD.t
+++ b/t/POD.t
@@ -21,10 +21,10 @@ my $threshold = $ENV{POD_COVERAGE} == 2 ? 0.9999
               : 0;
 
 my @modules = ();
-find(\&countModules, WebGUI::Test->lib );
+my $lib_path = WebGUI::Test->lib;
+find(\&countModules, $lib_path );
 my $moduleCount = scalar(@modules);
 plan tests => $moduleCount;
-use Data::Dumper;
 foreach my $package (sort @modules) {
 	my $pc = Pod::Coverage->new(
         package       => $package,
@@ -49,8 +49,8 @@ sub countModules {
 	return unless $filename =~ m/\.pm$/;
 	return if $filename =~ m/WebGUI\/i18n/;
 	return if $filename =~ m/WebGUI\/Help/;
-	my $package = $filename;
-	$package =~ s/^.*(WebGUI.*)\.pm$/$1/;
+    my $package = File::Spec->abs2rel($filename, $lib_path);
 	$package =~ s/\//::/g;
+    $package =~ s/\.pm$//;
 	push(@modules,$package);
 }