2008-03-31から1日間の記事一覧

forwardで引数のメモ

forwardを使った場合に引数を渡す方法。 #呼び側 $c->forward('test',[qw/test/]) #呼ばれ側 sub test : Local { my ($self, $c) = @_; my $args = $c->req->args->[0]; } なんか他のサイト見てると、$c->req->args[0]とか書いてあるけど、これで書くと文法…