Как реализованы действия 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

Это атрибуты. См. документацию атрибута , а также Закрытую переменную через атрибуты подпрограмм my () и в perlsub .