Commit | Line | Data |
---|---|---|
fbcc39ad | 1 | package TestApp::Controller::Engine::Response::Large;\r |
2 | \r | |
3 | use strict;\r | |
4 | use base 'Catalyst::Base';\r | |
5 | \r | |
6 | sub one : Relative {\r | |
7 | my ( $self, $c ) = @_;\r | |
8 | $c->res->output( 'x' x (100 * 1024) ); \r | |
9 | }\r | |
10 | \r | |
11 | sub two : Relative {\r | |
12 | my ( $self, $c ) = @_;\r | |
13 | $c->res->output( 'y' x (1024 * 1024) );\r | |
14 | }\r | |
15 | \r | |
16 | 1;\r |