t/lib/TestApp/Controller/Root.pm

   1 package TestApp::Controller::Root;
   2
   3 use parent 'Catalyst::Controller::WrapCGI';
   4
   5 __PACKAGE__->config->{namespace} = '';
   6
   7 my $cgi = sub {
   8     use CGI ':standard';
   9
  10     print header;
  11     print 'foo:',param('foo'),' bar:',param('bar')
  12 };
  13
  14 sub handle_cgi : Path('/cgi-bin/test.cgi') {
  15     my ($self, $c) = @_;
  16     $self->cgi_to_response($c, $cgi);
  17 }
  18
  19 1;