我想从存储在Moose类中的列表中获取元素.该类知道如何填充该列表本身.它有点像迭代器,除了我希望能够重置迭代器,并开始从该列表中获取相同的元素,就好像我还没有这样做.我打算如下打电话：
while( my $slotlist = $class->get_next_slotlist ) {
# do something with $slotlist
}
除此之外,正如我所说,我可能希望稍后再次重申相同的内容：
$class->reset_slotlists;
while( my $slotlist = $class->get_next_slotlist ) {
# do something with $slotlist
}
我想要按照以下精简版(模拟)版本来设计类：
package List;
use Moose;
has '_data' => (
traits => [ 'Array' ],is => 'ro',predicate => 'has_data',lazy => 1,builder => '_build_data',clearer => 'reset',handles => {
next => 'shift',},);
sub _build_data { [ 'abc','def' ] }
package main;
use strict;
use warnings;
use Test::More;
use Test::Pretty;
my $list = List->new;
ok ! $list->has_data;
is $list->next,'abc';
is $list->next,'def';
is $list->next,undef;
is $list->next,undef;
$list->reset;
is $list->next,'abc','Moose calls builder again after clearing';
is $list->next,undef;
ok $list->has_data;
done_testing;
当我运行它时,Moose在调用reset()之后再次调用构建器(即更清晰).我的问题是：这种行为有保证吗？文档没有说.
(在输入这个问题时,我也开始疑惑：你认为这是不好的设计吗？我喜欢类似迭代器的界面,在调用方面非常优雅,并且易于实现.但是这个问题是设计不是一个标志不好吗？)