动态加载 Perl 模块

Question

我正在尝试创建一个可扩展的系统，通过该系统我可以将新模块编码为处理程序。我希望程序自动加载放入 Handlers 目录并符合 Moose::Role 接口的任何新 .pm 文件。

我想知道是否有 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方法来自动加载特定目录中的任何模块。

有哪位麋鹿专家可以帮忙吗？

Answer 1

MooseX::Object::Pluggable