oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Cleaner method for finding module names from package paths.

Browse source
This commit is contained in:
Colin Kuskie 2012-01-18 13:16:26 -08:00
parent 46152edef6
commit 475b73f6e6
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
t/POD.t
View file

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