Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

use Moose;
sub upload :POST Chained(/) Args(0) Does(RequestModel) RequestModel(UploadRequest) {
my ($self, $c, $request) = @_;
$c->res->body(Dumper +{
notes => $request->notes,
file => $request->file->slurp,
});
}
__PACKAGE__->meta->make_immutable;