Commit | Line | Data |
---|---|---|
457c1d76 | 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; |