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

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