Commit | Line | Data |
21a20b7e |
1 | package TestCGIBin::Controller::CGIHandler; |
2 | |
3 | use parent 'Catalyst::Controller::CGIBin'; |
4 | |
9cd47364 |
5 | # Turn off log for the non-zero exit test |
6 | sub auto : Private { |
7 | my ($self, $c) = @_; |
8 | $c->log->levels() unless $c->debug; |
9 | 1; |
10 | } |
11 | |
9cc2dd4c |
12 | sub cgi_path { |
13 | my ($self, $cgi) = @_; |
14 | return "my-bin/$cgi"; |
15 | } |
16 | |
21a20b7e |
17 | # try resolved forward |
18 | sub mtfnpy : Local Args(0) { |
19 | my ($self, $c) = @_; |
c264816e |
20 | $c->forward($self->cgi_action('path/test.pl')); |
21a20b7e |
21 | } |
22 | |
23 | 1; |