Monday, March 28, 2011

How are Perl Catalyst actions implemented?

How is the following code implemented in Perl?


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

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

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

  }

I am interested in the add_item : Local part, cause I don't think those are Perl keywords.

From stackoverflow

0 comments:

Post a Comment