如何在 Moose 对象中设置一堆属性构建器？

Question

我有以下五个 Moose 属性：

has ['summary_file', 'html_file', 'url1', 'url2', 'txt_file'] => (
    is       => 'rw',
    isa      => 'Str',
    required => 0,
    lazy     => 1,
    default  => sub { confess "Attribute not set"; },
    );

我想：

1. 让每个属性都使用自己的构建器（例如 set 'summary_file' 使用 _build_summary_file 等）
2. 设为默认值承认子状态调用了哪个（未初始化）属性（例如“属性'summary_file'未设置”）。

我可以通过编写五个单独的 has 来完成上述任务，但也许有更紧凑的方法？

Answer 1

您可以执行类似以下操作（下面的“不起作用”评论后的新工作示例）：

package My::Class;
use Moose;
use namespace::autoclean;

for my $attr (qw(x y)) {
    has $attr => (
        is       => 'rw',
        isa      => 'Str',
        required => 0,
        lazy     => 1,
        builder  => "_build_$attr",
    );
}

sub _build_x { rand }
sub _build_y { rand }

__PACKAGE__->meta->make_immutable;

package main;

use strict; use warnings;

my $o = My::Class->new;

print $o->$_, "\n" for qw(x y);

请注意，您不能同时指定 default 和 builder .

@Oesor 在评论中指出了一些我忘记的事情：

has ['summary_file', 'html_file', 'url1', 'url2', 'txt_file'] => (
    is         => 'rw',
    isa        => 'Str',
    required   => 0,
    lazy_build => 1,
);

Answer 2

如果您正在寻找一个在未设置值时在访问时引发异常的属性，请查看 MooseX::LazyRequire。

如果您正在寻找一个构建器在调用时抛出警告，请将该语句包含在构建器方法中...或者包装访问器/读取器方法来执行此操作。 （例如“before 'attribute_name' => sub { ...complain... };”）

如果您正在寻找一种使用相同命名约定为属性指定构建器方法的方法lazy_build 确实如此，请参阅 MooseX::AttributeShortcuts （支持 'builder => 1' 为 'builder => "_build_${attribute_name}"')。