Я не могу получить следующий вызов Mojo::UserAgent
для отправки JSON на сервер:
use Mojo::UserAgent;
my $ua=Mojo::UserAgent->new;
my $json = $ua->post("localhost:6767" => {} => json =>{ val=>10 })->res->json;
Использование поддельного сервера отладки на другой стороне с nc -l 6767
дает следующий результат:
POST / HTTP/1.1
User-Agent: Mojolicious (Perl)
Connection: keep-alive
Content-Length: 0
Host: localhost:6767
Это не только метод json
, form
, и весь Transactor, кажется, сломан на 2 моих машинах. Из документов:
perl -MMojo::UserAgent::Transactor -E 'say Mojo::UserAgent::Transactor->new->tx(PUT => "http://kraih.com" => json => {a => "b"})->req->to_string;'
PUT / HTTP/1.1
Content-Length: 4
Host: kraih.com
json
Трудно поверить своим глазам. Что мне не хватает?