t/lib/TestApp/Controller/Args.pm

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