Question

我想编写一个可以通过插件扩展的应用程序，使用Perl和Moose。我知道有一些用于编写插件的Moose模块，我知道还有其他方法。

我有什么选择？我应该怎么知道他们？在实现插件系统之前我应该考虑什么？

Answer 1

有几种方法可以提供可扩展性;允许用户将角色应用于您的类，或允许他们传入执行有趣事情的小对象（委托）。代表的性能优于角色，但要求您预先计划所有可扩展性。角色允许更多的临时行为。

以下是采用每种方法的两种CPAN分布：

代表：AnyEvent::Subprocess

角色：Devel::REPL

插件角色使用MooseX::Object::Pluggable实现。

无论你喜欢，都会实施代表;模式传递一个A类的实例，它将一个角色R转换为C类，然后C类委托给A.这是一个例子：

package Compare;
use Moose::Role;
requires 'compare';


package SpaceshipCompare;
use Moose;
with 'Compare';  

sub compare { my ($a, $b) = @_; return $a <=> $b }

package Sort;
use Moose;

has 'comparer' => (
    is       => 'ro',
    does     => 'Compare',
    handles  => 'Compare',
    required => 1,
);

sub my_sort {
    my ($self, @list) = @_;
    return sort { $self->compare($a, $b) } @list;
}

然后你使用它：

my $sorter = Sort->new( comparer => SpaceshipCompare->new );
my @sorted = $sorter->my_sort("1one", "0", "43");

如果您希望Sort的工作方式发生变化，您只需创建一个执行Compare角色的新类，然后将实例传递给Sort的构造函数。即时灵活！

为Moose应用程序构建插件系统的最佳选择是什么？

1 个答案: