訪問駝鹿數組

Question

無法找出推送到駝鹿數組的語法（我確信這很明顯，我很愚蠢）。這是this question的延續。在我看來，我需要的不僅僅是我的具體情況的一個簡單的價值。試圖用Moose-ish的方式實現它（也許這是錯誤的？），但我顯然做得不對。

use Moose::Role; 
has 'tid_stack' => (
    traits => ['Array'], 
    is  => 'rw', 
    isa => 'ArrayRef[Str]', 
    default => sub { [] }, 
); 


around 'process' => sub { 
    my $orig = shift; 
    my $self = shift; 
    my ($template) = @_; 

    $self->tid_stack->push(get_hrtid($template)); 

    $self->$orig(@_) 
}; 

Answer 1

您誤解了traits => ['Array']的功能。這使您可以設置handles方法。它不允許你直接調用像push這樣的方法。你需要use Moose::Autobox（你不需要Array特性）。

或者你可以這樣做：

has 'tid_stack' => (
    traits => ['Array'], 
    is  => 'rw', 
    isa => 'ArrayRef[Str]', 
    default => sub { [] }, 
    handles => { 
     push_tid => 'push', 
    }, 
); 

... 

    $self->push_tid(get_hrtid($template));