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