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：Local 部分感兴趣，因为我认为这些不是Perl关键字。

Answer 1

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