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');
12 if (my $fh = $cgi->param('baz')) {
17 sub handle_cgi : Path('/cgi-bin/test.cgi') {
19 $self->cgi_to_response($c, $cgi);
22 sub test_path_info : Path('/cgi-bin/test_pathinfo.cgi') {
25 $self->cgi_to_response($c, sub {
32 sub test_filepath_info : Path('/cgi-bin/test_filepathinfo.cgi') {
35 $self->cgi_to_response($c, sub {
38 print $ENV{FILEPATH_INFO}
42 sub test_script_name : Path('/cgi-bin/test_scriptname.cgi') {
45 $self->cgi_to_response($c, sub {
48 print $ENV{SCRIPT_NAME}