Comment les actions Perl Catalyst sont-elles implémentées?

Question

Comment le code suivant est-il implémenté en Perl?

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

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

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

    } 

Je suis intéressé par le add_item: Local partie, parce que je ne pense pas que ce sont des mots-clés Perl.

Answer 1

Ce sont des attributs. Voir la documentation the attribute, mais aussi Private Variable via my() et Subroutine Attributes dans perlsub.