The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TestApp::Uploads::Action::Uploads;
use strict;
use warnings;
use base 'Jifty::Action';

use Jifty::Param::Schema;
use Jifty::Action schema {
    param content =>
        label is 'File',
        render as 'Uploads';
};

sub take_action {
    my $self = shift;

    my $attachments = $self->argument_value('content');
    $self->result->content(files => {});
    for my $att ( ref $attachments eq 'ARRAY' ? @$attachments : $attachments ) {
        next unless $att && UNIVERSAL::isa($att, 'Jifty::Web::FileUpload');
        $self->result->content('files')->{$att->filename} = $att->content;
    }
    return 1;
}

1;