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

11
lib/WebGUI/Form/FieldType.pm
View file

@ -20,6 +20,7 @@ use Tie::IxHash;
use WebGUI::International;
use WebGUI::Pluggable;
use WebGUI::Utility;
use Module::Find qw(findsubmod);
=head1 NAME
@ -112,15 +113,15 @@ sub getTypes {
my $self = shift;
my @types = @{$self->get('types')};
unless (scalar(@types)) {
opendir(DIR,$self->session->config->getWebguiRoot."/lib/WebGUI/Form/");
foreach my $type (readdir(DIR)) {
if ($type =~ s/^(.*)\.pm$/$1/) {
if (WebGUI::Pluggable::instanciate('WebGUI::Form::'.ucfirst($type),'isDynamicCompatible')) {
my @classes = findsubmod 'WebGUI::Form';
for my $class (@classes) {
if ($class =~ /^WebGUI::Form::(.*)/) {
my $type = $1;
if (WebGUI::Pluggable::instanciate($class, 'isDynamicCompatible')) {
push @types, $type;
}
}
}
closedir(DIR);
}
my %fields = ();
foreach my $type (@types) {