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')) {
16 die $cgi->cgi_error if $cgi->cgi_error;
19 sub handle_cgi : Path('/cgi-bin/test.cgi') {
21 $self->cgi_to_response($c, $cgi);
24 sub test_path_info : Path('/cgi-bin/test_pathinfo.cgi') {
27 $self->cgi_to_response($c, sub {
34 sub test_filepath_info : Path('/cgi-bin/test_filepathinfo.cgi') {
37 $self->cgi_to_response($c, sub {
40 print $ENV{FILEPATH_INFO}
44 sub test_script_name : Path('/cgi-bin/test_scriptname.cgi') {
47 $self->cgi_to_response($c, sub {
50 print $ENV{SCRIPT_NAME}