t/lib/TestCGIBinChainRoot/Controller/CGIHandler.pm

   1 package TestCGIBinChainRoot::Controller::CGIHandler;
   2
   3 use parent 'Catalyst::Controller::CGIBin';
   4
   5 sub chain_root : Chained('/') PathPart('cgi') CaptureArgs(0) {
   6     my ($self, $c) = @_;
   7
   8     $c->req->body_parameters->{from_chain} = 'from_chain';
   9 }
  10
  11 1;