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