Commit | Line | Data |
32d4bba8 |
1 | package TestApp::Controller::Engine::Request::Uploads; |
2 | |
3 | use strict; |
c057ae86 |
4 | use base 'Catalyst::Controller'; |
32d4bba8 |
5 | |
6 | sub slurp : Relative { |
7 | my ( $self, $c ) = @_; |
8 | $c->response->content_type('text/plain; charset=utf-8'); |
0fd00e7b |
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; |
32d4bba8 |
13 | $c->response->output( $c->request->upload('slurp')->slurp ); |
14 | } |
15 | |
16 | 1; |