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