perl – 为Moose应用程序构建插件系统的最佳选择是什么?
发布时间:2020-12-16 06:24:59 所属栏目:大数据 来源:网络整理
导读:我想编写一个可以通过插件扩展的应用程序,使用Perl和 Moose.我知道有一些用于编写插件的Moose模块,我知道还有其他方法. 我有什么选择?我应该怎么知道他们?在实现插件系统之前我应该??考虑什么? 解决方法 有几种方法可以提供可扩展性;允许用户将角色应用于
我想编写一个可以通过插件扩展的应用程序,使用Perl和
Moose.我知道有一些用于编写插件的Moose模块,我知道还有其他方法.
我有什么选择?我应该怎么知道他们?在实现插件系统之前我应该??考虑什么? 解决方法
有几种方法可以提供可扩展性;允许用户将角色应用于您的类,或允许他们传入执行有趣事情的小对象(委托).代表的性能优于角色,但要求您预先计划所有可扩展性.角色允许更多的临时行为.
以下是采用每种方法的两种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的构造函数.即时灵活! (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |