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 | |
dd4e6fd2 |
17 | sub request : Action Relative { |
18 | my ( $self, $c ) = @_; |
d157ca3d |
19 | $c->req->params(undef); # Should be a no-op, and be ignored. |
20 | # Back compat test for 5.7 |
dd4e6fd2 |
21 | $c->forward('TestApp::View::Dump::Request'); |
22 | } |
23 | |
11e7af55 |
24 | sub prepare_parameters : Action Relative { |
25 | my ( $self, $c ) = @_; |
26 | |
27 | die 'Must pass in parameters' unless keys %{$c->req->parameters}; |
28 | |
29 | $c->req->parameters( {} ); |
30 | die 'parameters are not empty' if keys %{$c->req->parameters}; |
31 | |
32 | # Now reset and reload |
33 | $c->prepare_parameters; |
34 | die 'Parameters were not reset' unless keys %{$c->req->parameters}; |
35 | |
36 | $c->forward('TestApp::View::Dump::Request'); |
37 | } |
dd4e6fd2 |
38 | sub response : Action Relative { |
39 | my ( $self, $c ) = @_; |
40 | $c->forward('TestApp::View::Dump::Response'); |
41 | } |
42 | |
c4b09639 |
43 | sub body : Action Relative { |
44 | my ( $self, $c ) = @_; |
45 | $c->forward('TestApp::View::Dump::Body'); |
46 | } |
47 | |
dd4e6fd2 |
48 | 1; |