Commit | Line | Data |
---|---|---|
21a20b7e | 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) = @_; | |
c264816e | 8 | $c->forward('/cgihandler/CGI_path_test_pl'); |
21a20b7e | 9 | } |
10 | ||
11 | # try resolved forward | |
12 | sub mtfnpy : Local Args(0) { | |
13 | my ($self, $c) = @_; | |
c264816e | 14 | $c->forward($self->cgi_action('path/test.pl')); |
21a20b7e | 15 | } |
16 | ||
17 | 1; |