1 package TestApp::Controller::Engine::Request::Uploads;
4 use base 'Catalyst::Controller';
8 $c->response->content_type('text/plain; charset=utf-8');
9 my $upload = $c->request->upload('slurp');
10 my $contents = $upload->slurp;
11 my $contents2 = $upload->slurp;
12 die("Slurp not callable multiple times") unless $contents eq $contents2;
13 $c->response->output( $c->request->upload('slurp')->slurp );