t/lib/TestApp/Controller/Engine/Request/Uploads.pm

   1 package TestApp::Controller::Engine::Request::Uploads;
   2
   3 use strict;
   4 use base 'Catalyst::Controller';
   5
   6 sub slurp : Relative {
   7     my ( $self, $c ) = @_;
   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 );
  14 }
  15
  16 1;