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

use Module::Find instead of enumerating over the files

Browse source
This commit is contained in:
Graham Knop 2008-09-17 15:38:01 +00:00
parent 568fd0b608
commit a2757494af
6 changed files with 21 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Help/Macros.pm
View file

@ -1,5 +1,6 @@
package WebGUI::Help::Macros;
use strict;
use Module::Find qw(findsubmod);
our $HELP = {
@ -7,15 +8,8 @@ our $HELP = {
title => 'macros list title',
body => sub {
my $session = shift;
my $dir = join '/', $session->config->getWebguiRoot, "lib", "WebGUI", "Macro";
opendir( DIR, $dir ) or $session->errorHandler->fatal("Can't open Macro directory: $dir!");
my @macros = ();
foreach my $dir (readdir(DIR)) {
next unless $dir =~ /\.pm$/;
$dir =~ s/\.pm//;
push @macros, $dir;
}
closedir(DIR);
my @macroModules = findsubmod 'WebGUI::Macro';
my @macros = map { /^WebGUI::Macro::(.*)/; $1 } @macroModules;
##Build list of enabled macros, by namespace, by reversing session hash:
my %configMacros = %{ $session->config->get("macros") };