Commit | Line | Data |
---|---|---|
32d4bba8 | 1 | package TestApp::Controller::Engine::Request::Uploads; |
2 | ||
3 | use strict; | |
4 | use base 'Catalyst::Base'; | |
5 | ||
6 | sub slurp : Relative { | |
7 | my ( $self, $c ) = @_; | |
8 | $c->response->content_type('text/plain; charset=utf-8'); | |
9 | $c->response->output( $c->request->upload('slurp')->slurp ); | |
10 | } | |
11 | ||
12 | 1; |