Mojolicious upload

#!/usr/bin/env perl

# try
# MOJO_MAX_MESSAGE_SIZE=100000000 plackup -r upload.pl
# MOJO_MAX_MESSAGE_SIZE=100000000 morbo upload.pl
# and compare debug output

use Mojolicious::Lite;

hook after_build_tx => sub {
    my $tx = shift;
    $tx->req->on(progress => sub {
        my $msg = shift;
        app->log->debug(
            'total_size($msg->{buffer}) = ' . length($msg->{buffer}) .
            ', $msg->{state} = ' . $msg->{state}
        );
    });
};

# Upload form in DATA section
get '/' => 'index';

# Streaming multipart upload (invoked twice, due to early "request" event)
post '/upload' => sub {
  my $self = shift;

  $self->render(text => 'Upload was successful.');
};

app->start;

__DATA__

@@ index.html.ep
<!DOCTYPE html>
<html>
  <head><title>Streaming multipart upload</title></head>
  <body>
    %= form_for upload => (enctype => 'multipart/form-data') => begin
      %= file_field 'example'
      %= submit_button 'Upload'
    % end
  </body>
</html>