Perl类的属性组成？
假设我有多个角色，每个角色定义一组项目：
package A;
use Moose::Role;
sub items () { qw/apple orange/ }
package B;
use Moose::Role;
with 'A';
sub items () { qw/watermelon/ }
package C;
use Moose::Role;
sub items () { qw/banana/ }
package Foo;
use Moose;
with qw(B C);
sub do_something {
my $self = shift;
my @items = ???; # How can I get apple, orange, watermelon, banana here?
....
}
my @items = map $_->items, @ISA;
package A;
use Moose::Role;
sub items () { qw/apple orange/ }
package B;
use Moose::Role;
with 'A';
sub items () { qw/watermelon/ }
package C;
use Moose::Role;
sub items () { qw/banana/ }
package Foo;
use Moose;
with qw(B C);
sub items () {}
sub do_something {
my $self = shift;
my @items = map $_->execute, grep $_,
map $_->get_method('items'),
$self->meta->calculate_all_roles_with_inheritance;
...
}
package Foo;
use Moose;
use MooseX::Collect;
collect 'items';
with qw(B C);
sub do_something {
my $self = shift;
my @items = $self->items;
...
}
没有找到相关结果
已邀请:
2 个回复
瓜唱鬼
：package A; use Moose::Role; requires 'items'; around items => sub { my ($orig, $self, @args) = @_; return ($self->$orig(@args), qw/apple orange/); }; package B; use Moose::Role; requires 'items'; with 'A'; # not required, do it if you want it around items => sub { my ($orig, $self, @args) = @_; return ($self->$orig(@args), qw/watermelon/); }; package C; use Moose::Role; requires 'items'; around items => sub { my ($orig, $self, @args) = @_; return ($self->$orig(@args), qw/banana/); }; package Class; use Moose; with qw/B C/; sub items {}梆晨灸碾
之后，我不完全确定为什么你觉得你不应该使用它。毕竟，它确实解决了你所遇到的问题。 是的，确实说它的界面将来可能会略有变化。但是，适应这些微小变化的工作量是多少？相比之下，您认为您需要多长时间才能找到替代解决方案并实际实施该解决方案？您认为您的解决方案在正确性和稳健性等方面与相比如何？至少我不相信自己会重新发明最初由RJBS发明的车轮并期望我的解决方案变得更好。 此外，如果你真的非常担心一个模块会警告你未来可能发生的变化，那就去与它的作者合作，帮助他把它变成一个他满意的形状，宣称它是稳定的。为您的特定用例编写更多测试。和里卡多谈谈，他是一个好人。