使用 Moose 时在构造时分配方法体的最佳方法是什么？

Question

我正在使用 Moose （特别是 MooseX::Declare）创建一个迭代器对象 Iter，它有一个 next > 方法，根据 while 语句中使用的需要，推进状态并返回 0 或 1。我遇到的问题是，根据构造参数之一的存在，next 需要执行两组截然不同的操作。在我看来，我有五个选项：

1. if ...then 在 next 方法
2. 中子类
3. 哈希调度
4. 符号表操作
5. 将方法放在不同的模块中，并在构造时加载所需的方法

Number 1只是业余爱好者。

我认为，第二个是正确的 OOP 做事方式。我不反对这样做，但仅仅覆盖单个方法似乎有点矫枉过正。

过去，我在进行程序或伪功能工作时经常使用数字 3，这就是我现在正在做的事情。

众所周知，4 充满了危险，而且我不知道 Moose Guts 会在不必要的时候开始胡闹。

最后一项，编号 5 在我看来是最明智的（也是 Perlish），但与编号 2 一样，工作量有点太大。我真的很想知道是否还有第五种方法我没有考虑过，例如挂钩到元类或可能是相当成熟的 MooseX 模块。

Answer 1

另一种选择是动态应用角色：

package Iter;
use Moose;
use Moose::Util qw(apply_all_roles);

has next_role => (is => 'ro');

sub BUILD {
    my $self = shift;
    apply_all_roles($self, $self->next_role);
}

Answer 2

将“下一个”子引用传递到构造函数中并将其保存在属性中：

has next => (
    isa => 'CodeRef',
    required => 1,
    traits => ['Code'],
    handles => { next => 'execute_method' },
);

使用 原生属性'Code'特征，你可以像普通方法一样调用'next'方法，它会在属性中找到subref主体。

如果您想预先定义子引用主体并在构造时决定使用哪个版本，您可以根据对象的其他条件在构建器子中设置“next”的值：

has next => (
    # ...
    lazy => 1,
    default => sub {
         my $self = shift;
         return sub { ... } if $self->some_condition;
         # etc etc...
    },
);