Test case for utrack's JSON-PUTting Dancer2 problem

put-server.pl

#!/usr/bin/perl
#
use lib '/home/davidp/dev/github/Dancer2/lib';
use Dancer2;

set serializer => 'Mutable';

put '/put' => sub {
    warn "request body: " . request->body;
    warn "hi: " . params->{hi};
};

dance;

put-test.pl

#!/usr/bin/perl

use strict;
use JSON;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(
    PUT => 'http://localhost:3000/put',
    [ 'Content-Type' => 'application/json' ],
    JSON::to_json({ hi => 'json' }),
);

my $res = $ua->request($req);

die "Got result: " . $res->status_line;