Perl Catalyst操作如何实现？

Question

下面的代码是如何在Perl中实现的？

sub add_item : Local { 
    my ($self, $c) = @_; 

    my $item_id = $c->req->param("item"); 

    push @{ $c->session->{items} }, $item_id; 

    } 

我感兴趣的方法add_item：本地部分，因为我不认为这些是Perl的关键字。

Answer 1

它们是属性。请参阅the attribute文档，还可参考Private Variable via my()和Subroutine Attributes的perlsub。