From Code to Community: Sponsoring The Perl and Raku Conference 2025 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;