1 package TestApp::Controller::Root;
3 use parent 'Catalyst::Controller::WrapCGI';
6 __PACKAGE__->config->{namespace} = '';
11 print 'foo:',$cgi->param('foo'),' bar:',$cgi->param('bar')
14 sub handle_cgi : Path('/cgi-bin/test.cgi') {
16 $self->cgi_to_response($c, $cgi);
19 sub test_path_info : Path('/cgi-bin/test_pathinfo.cgi') {
22 $self->cgi_to_response($c, sub {
29 sub test_filepath_info : Path('/cgi-bin/test_filepathinfo.cgi') {
32 $self->cgi_to_response($c, sub {
35 print $ENV{FILEPATH_INFO}
39 sub test_script_name : Path('/cgi-bin/test_scriptname.cgi') {
42 $self->cgi_to_response($c, sub {
45 print $ENV{SCRIPT_NAME}