t/lib/TestCGIBin/Controller/CGIHandler.pm

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