我正在尝试创建一个可扩展的系统,使我可以编写一个新模块作为处理程序。我希望程序能够自动加载任何放置在Handlers目录中并符合Moose::Role接口的新.pm文件。
我想知道是否有Perl模块或更适用于Moose的方法可以自动完成这个过程?目前我已经构建了以下内容,但它似乎有点冗长,肯定有更简单的方法来完成它。
handler.pl包含:
把所有这些加起来,Data::Dumper 的结果如下:
我想知道是否有Perl模块或更适用于Moose的方法可以自动完成这个过程?目前我已经构建了以下内容,但它似乎有点冗长,肯定有更简单的方法来完成它。
handler.pl包含:
#!/usr/bin/perl
use Handler;
use Data::Dumper;
my $base_handler = Handler->new();
$base_handler->load_modules('SysG/Handler');
print Dumper($base_handler);
Handler.pm
包含以下内容:
package Handler;
use Moose;
has 'handlers' => ( traits => ['Array'], handles => { add_handler => 'push' } );
sub load_modules {
my ($self,$dir) = @_;
push(@INC, $dir);
my @modules = find_modules_to_load($dir);
eval {
# Note that this sort is important. The processing order will be critically important.
# The sort implies the sort order
foreach my $module ( sort @modules) {
(my $file = $module) =~ s|::|/|g;
print "About to load $file.pm for module $module\n" ;
require $file . '.pm';
$module->import();
my $obj = $module->new();
$self->add_handler($obj);
1;
}
} or do {
my $error = $@;
print "Error loading modules: $error" if $error;
};
}
sub find_modules_to_load {
my ($dir) = @_;
my @files = glob("$dir/*.pm");
my $namespace = $dir;
$namespace =~ s/\//::/g;
# Get the leaf name and add the System::Module namespace to it
my @modules = map { s/.*\/(.*).pm//g; "${namespace}::$1"; } @files;
die "ERROR: No classifier modules found in $dir\n" unless @modules;
return @modules;
}
1;
我已经创建了一个名为SysG/Handler的目录,并添加了两个.pm文件,这些文件通常符合Moose::Role(就像定义必须遵守的接口一样)。
SysG::Handler::0001_HandleX.pm
存根包含:
package SysG::Handler::0001_HandleX;
use Moose;
1;
SysG::Handler::0002_HandleX.pm
桩文件包含以下内容:
package SysG::Handler::0002_HandleY;
use Moose;
1;
把所有这些加起来,Data::Dumper 的结果如下:
$VAR1 = bless( {
'handlers' => [
bless( {}, 'SysG::Handler::0001_HandleX' ),
bless( {}, 'SysG::Handler::0002_HandleY' )
]
}, 'Handler' );
那么,现在我重复我的原始问题:是否有更简单的方法,或者一个自动加载特定目录中所有模块的模块或Moose方法。
有哪位Moose专家能够在这里提供帮助吗?