我如何需要一個不是屬性的Moose構造函數arg？

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甚至建立。你有一個簡單的方法，就是這樣。

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 

如果您希望穆斯檢查類型並確保其存在，則必須將其作爲屬性。但是你可以在使用它之後在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 

你能說出讀者法別的東西（如_ds）如果你想。