访问 Moose 数组

Question

无法弄清楚推送到 Moose 数组的语法（我确信这是显而易见的，而且我很愚蠢）。这是此问题的延续。在我看来，对于我的具体情况，我需要的不仅仅是一个简单的值。尝试使用驼鹿式的方式来实现它（也许这是错误的？），但我显然做得不对。

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 之类的方法。您需要使用 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 ) );