t/lib/TestCGIBin/Controller/CGIHandler.pm

   1 package TestCGIBin::Controller::CGIHandler;
   2
   3 use parent 'Catalyst::Controller::CGIBin';
   4
   5 # try out a forward
   6 sub dongs : Local Args(0) {
   7     my ($self, $c) = @_;
   8     $c->forward('/cgihandler/CGI_test_pl');
   9 }
  10
  11 # try resolved forward
  12 sub mtfnpy : Local Args(0) {
  13     my ($self, $c) = @_;
  14     $c->forward($self->cgi_action('test.pl'));
  15 }
  16
  17 1;