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

它们是属性.请参阅属性文件,而且还通过私有变量我的()和子程序属性在perlsub.