DF
Size: a a a
DF
DF
DF
b
VG
VG
VG

VG
VG
VG
p
W
AR
AR
$c->request->body_data - это сериализованный уже json, в ->body у нас File::Temp, как бы на определенный action не делать десериализацию а получить сырой jsonW
AR
AR
AR
W
    unless ($body) {
        my $body_any = $req->body;
        unless (ref $body_any) {
            $body = $body_any;
        } elsif (ref($body_any) eq 'File::Temp') {
            my $fname = $body->filename;
            open my $fh, '<', $fname or die 'Cannot open '.$fname;
            local $/ = undef;
            $body = <$fh>;
            close $fh;
        } else {
            $c->detach('/api/error', [ ERR_MALFORMED_JSON, 'unsupported body type: '.ref($body_any) ]);
        }
    }AR