リクエストオブジェクト（Catalyst::Request ）

全パラメータ取得

 my %params = %{$c->req->params};

パラメータ設定（一括）

 $c->req->params({id => 1, name => 'taro', age => 18});

リクエストメソッド取得

 return if lc $c->req->method eq 'post';

マニュアル

http://search.cpan.org/perldoc?Catalyst::Request