2009-02-06 53 views
2

下面的代碼是如何在Perl中實現的?Perl Catalyst操作如何實現?


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

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

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

    } 

我感興趣的方法add_item:本地部分,因爲我不認爲這些是Perl的關鍵字。

回答