[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Engine / Response / Large.pm

package TestApp::Controller::Engine::Response::Large;\r
\r
use strict;\r
use base 'Catalyst::Base';\r
\r
sub one : Relative {\r
    my ( $self, $c ) = @_;\r
    $c->res->output( 'x' x (100 * 1024) ); \r
}\r
\r
sub two : Relative {\r
    my ( $self, $c ) = @_;\r
    $c->res->output( 'y' x (1024 * 1024) );\r
}\r
\r
1;\r
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