perl – 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()之后再次调用构建器(即更清晰).我的问题是：这种行为有保证吗？文档没有说.

(在输入这个问题时,我也开始疑惑：你认为这是不好的设计吗？我喜欢类似迭代器的界面,在调用方面非常优雅,并且易于实现.但是这个问题是设计不是一个标志不好吗？)