首先，您需要提出一个清晰的界面。每个模块都需要具有相同的结构。是不是OOP没关系，但是都需要暴露相同的接口。

这是FFTG::Rename. 我遗漏了很多东西，但我认为很清楚发生了什么。

package FFTG::Rename;

use strict;
use warnings;

sub run {
    my ($args) = @_;

    if ($args->{mandatory}) {
        # do stuff here
    }

    # checks args...
    # do sanity checks...
    return unless -f $args->{file}->{name}; # or whatever...

    rename $args->{file}->{name}, $args->{file}->{to} or die $!;

    return; # maybe return someting meaningful?
}

现在让我们假设我们有一堆。我们如何加载它们？有几种方法可以做到这一点。我省略了将参数输入run函数的部分。您需要从 XML 中获取内容并以与所有这些函数相同的方式传递它，但我认为这与问题无关。

加载所有这些

最明显的是手动将它们全部加载到脚本中。

#!/usr/bin/env perl
use strict;
use warnings;
use XML::LibXML;

# load FFTG modules
use FFTG::Rename;
# ...

加载它们后，您可以调用该函数。该exist关键字很方便，因为它还可用于检查函数是否存在。

foreach my $action ( $doc->findnodes('/fftg/actions/*') ) {
    my $actiontype = ucfirst( $action->nodeName );
    no strict 'refs';
    if ( exists &{"FFTG::${actiontype}::run"} ) {
        &{"FFTG::${actiontype}::run"}->( $parsed_node_information );
    } else {
        # this module was not loaded
    }
}

不幸的是，非面​​向对象的方法需要no strict 'refs'，这并不漂亮。以面向对象的方式进行操作可能会更好。但我会坚持这个答案。

这种方式的明显缺点是您需要一直加载所有模块，并且每当创建一个新模块时，都需要添加它。这是最不复杂的方式，但也具有最高的维护性。

使用查找表自动加载

另一种方法是使用自动加载和定义允许操作的查找表。如果您希望程序仅按需加载模块，因为您知道在每次调用中都不需要所有模块，但您还希望控制加载的内容，这是有道理的。

可以将加载外包给Module::Runtime，而不是加载所有这些。

use Module::Runtime 'require_module';
use Try::Tiny;

my %modules = (
    'rename' => 'FFTG::Rename',

    # ...
);

foreach my $action ( $doc->findnodes('/fftg/actions/*') ) {
    try {
        no strict 'refs';
        require_module $modules{$action};
        &{"FFTG::${actiontype}::run"}->($parsed_node_information);
    }
    catch {
        # something went wrong
        # maybe the module does not exist or it's not listed in the lookup table
        warn $_;
    };
}

我还添加了Try::Tiny来处理错误。它让您可以控制在出现问题时该怎么做。

这种方法可以让您控制允许的操作，如果您偏执，这很好。但是它仍然需要您维护脚本并将新模块添加到%modules查找表中。

动态信任和加载

第三种，最通用的方法是使用 Module::Runtime 在没有查找表的情况下动态加载内容。

use Module::Runtime 'require_module';
use Try::Tiny;

foreach my $action ( $doc->findnodes('/fftg/actions/*') ) {
    try {
        my $actiontype = ucfirst($action->nodeName);
        require_module "FFTG::${actiontype}";

        no strict 'refs';
        &{"FFTG::${actiontype}::run"}->($parsed_node_information);
    }
    catch {
        # something went wrong
        # the module does not exist
    };
}

这是最少的维护，但它更危险。你不知道有什么数据进来，现在没有健全性检查。我想不出一种方法来利用我的头顶，但可能有一个。尽管如此，现在不需要编辑脚本并保持模块列表是最新的。

结论

我可能会采用第二种方法。它为您提供控制权并保持动态。我不会采用我使用过的非 OOP 方法。

您可以保持它为非 OOP，并且仍然可以no strict 'refs'通过使用->对象表示法调用类方法来摆脱。那么你的包看起来像这样。

package FFTG::Rename;

use strict;
use warnings;

sub run {
    my (undef, $args) = @_;

    # ...
}

的undef是不捕获$class（不$self），因为我们并不需要它。或者也许我们这样做，用于记录。这取决于。但是有了这个，您基本上可以为查找表解决方案调用类方法，如下所示。

require_module $modules{$action};
$modules{$action}->run($parsed_node_information);

这显然更清晰，更可取。