t/lib/TestApp/Controller/Args.pm

   1 package TestApp::Controller::Args;
   2
   3 use strict;
   4 use base 'Catalyst::Controller';
   5
   6 sub args :Local  {
   7     my ( $self, $c ) = @_;
   8     $c->res->body( join('',@{$c->req->args}) );
   9 }
  10
  11 sub params :Local {
  12     my ( $self, $c ) = splice @_, 0, 2;
  13     $c->res->body( join('',@_) );
  14 }
  15
  16 1;