X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestAppOnDemand%2FController%2FBody.pm;h=4ee9e0f78872f64732c4396b1d53c92060757954;hp=bbf3c8850faa352315866ac07ccd0ee3335b69f3;hb=88e5a8b0c4d28e46b8ba6b6b9567063e57af9063;hpb=9868e0a0023cc8b598d60f150ea367e0056a65f3 diff --git a/t/lib/TestAppOnDemand/Controller/Body.pm b/t/lib/TestAppOnDemand/Controller/Body.pm index bbf3c88..4ee9e0f 100644 --- a/t/lib/TestAppOnDemand/Controller/Body.pm +++ b/t/lib/TestAppOnDemand/Controller/Body.pm @@ -25,16 +25,16 @@ sub params : Local { sub read : Local { my ( $self, $c ) = @_; - + # read some data my @chunks; - + while ( my $data = $c->read( 10_000 ) ) { push @chunks, $data; } $c->res->content_type( 'text/plain'); - + $c->res->body( join ( '|', map { length $_ } @chunks ) ); }