我如何需要一个不是属性的 Moose 构造函数参数？

Question

我有一个 Moose 对象模块，它应该接受相对较大的数据结构 (ds) 作为其构造函数参数之一。它用于计算对象的一些属性。但是，我不希望将 ds 本身存储为属性——只有在对象构造过程中才需要它。

我想过使用 BUILDARGS 但后来我不确定如何定义 ds 是必需的参数。

我该如何解决这个问题？

Answer 1

我倾向于有一个构造函数，它只采用从数据结构派生的计算值。然后使用不同的方法将有限的参数加上数据结构作为参数。

sub generate_foo_from_ds {
    my $class = shift; 
    my %arg = @_;

    my $ds = $arg{foo_data};

    # Get attributes from args
    my %attrib;
    for (qw(foo bar baz ) {
        croak "Attrib '$_' is required" unless exists $arg{$_};
        $attrib{$_} = $arg{$_};
    }

    # calculate some more attributes here.
    $attrib{griz} = $ds->{whee} * $ds->{whoosh} / $ds->{whiz}[12];

    my $foo = $class->new( %attrib );

    return $foo;
}

然后让你的对象像这样：

my $foo = Foo->generate_foo_from_ds( foo_data => $bar, foo => 1, bar => 2, baz => 2 );

现在你不必担心奇怪的序列化问题或 BUILDARGS 甚至 BUILD。你有一个简单的方法，仅此而已。

Answer 2

您可以使用 BUILD 或 BUILDARGS 来实现此目的。如果不了解更多关于您想要做什么的信息，很难说哪个更好，但我猜 BUILD 会是更好的选择。

sub BUILD {
    my $self = shift;
    my $args = shift;

    my $ds = $args->{ds} or confess "Argument (ds) is required";

    $self->some_attr($ds->{...});
    $self->other_attr($ds->{foo}[3]);
    ...
} # end BUILD

如果您希望 Moose 检查类型并确保它存在，则必须将其设为属性。但你可以在使用后在BUILD方法中清除它。

 has 'ds' => (
     is       => 'ro',
     isa      => 'SomeType',
     required => 1,
     clearer  => '_clear_ds',
 );

sub BUILD {
    my $self = shift;
    my $args = shift;

    my $ds = $self->ds;
    $self->_clear_ds;

    $self->some_attr($ds->{...});
    $self->other_attr($ds->{foo}[3]);
    ...
} # end BUILD

如果您愿意，您可以将 reader 方法命名为其他名称（例如 _ds）。