t/live/lib/TestApp/Controller/Engine/Response/Large.pm

   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