Commit | Line | Data |
dd4e6fd2 |
1 | package TestApp::Controller::Dump; |
2 | |
3 | use strict; |
c057ae86 |
4 | use base 'Catalyst::Controller'; |
dd4e6fd2 |
5 | |
6 | sub default : Action Private { |
7 | my ( $self, $c ) = @_; |
8 | $c->forward('TestApp::View::Dump'); |
9 | } |
10 | |
316bf0f0 |
11 | sub env : Action Relative { |
12 | my ( $self, $c ) = @_; |
f7de4f5c |
13 | $c->forward('TestApp::View::Dump', [\%ENV]); |
316bf0f0 |
14 | } |
15 | |
dd4e6fd2 |
16 | sub request : Action Relative { |
17 | my ( $self, $c ) = @_; |
d157ca3d |
18 | $c->req->params(undef); # Should be a no-op, and be ignored. |
19 | # Back compat test for 5.7 |
dd4e6fd2 |
20 | $c->forward('TestApp::View::Dump::Request'); |
21 | } |
22 | |
23 | sub response : Action Relative { |
24 | my ( $self, $c ) = @_; |
25 | $c->forward('TestApp::View::Dump::Response'); |
26 | } |
27 | |
c4b09639 |
28 | sub body : Action Relative { |
29 | my ( $self, $c ) = @_; |
30 | $c->forward('TestApp::View::Dump::Body'); |
31 | } |
32 | |
dd4e6fd2 |
33 | 1; |