Commit | Line | Data |
61114b68 |
1 | package TestApp::Controller::Root; |
2 | use strict; |
3 | use warnings; |
4 | |
5 | use base qw/Catalyst::Controller/; |
6 | |
7 | sub begin : Private { |
8 | my ( $self, $c ) = @_; |
9 | $c->res->body('1'); |
10 | } |
11 | |
12 | sub subtest : Global { |
13 | my ( $self, $c ) = @_; |
14 | my $subreq= $c->res->body(). |
15 | $c->subreq('/normal/4'); |
16 | $c->res->body($subreq); |
17 | } |
18 | |
19 | sub normal : Global { |
20 | my ( $self, $c, $arg ) = @_; |
21 | $c->res->body($c->res->body().$arg); |
22 | } |
23 | |
24 | sub subtest_params : Global { |
25 | my ( $self, $c ) = @_; |
26 | my $before = $c->req->params->{value}; |
27 | my $subreq = $c->subreq('/normal/2'); |
28 | my $after = $c->req->params->{value}; |
29 | $c->res->body($c->res->body().$after); |
30 | } |
31 | |
87c672db |
32 | sub subtest_full_response : Global { |
33 | my ( $self, $c ) = @_; |
34 | my $subreq_res = $c->subreq_res('/typesetter'); |
35 | $c->res->body( $c->res->body() . $subreq_res->content_type ); |
36 | } |
37 | |
38 | sub typesetter : Global { |
39 | my ( $self, $c, $arg ) = @_; |
40 | $c->res->content_type( 'text/csv' ); |
41 | $c->res->body($c->res->body()); |
42 | } |
43 | |
61114b68 |
44 | sub end : Private { |
45 | my ( $self, $c ) = @_; |
46 | $c->res->body($c->res->body().'3'); |
47 | } |
48 | |
49 | 1; |
50 | |