sub Test::Mojo::put_json_ok {
  my ($self, $url, $data) = (shift, shift, shift);
  my $tx = $self->ua->build_json_tx($url, $data);
  $tx->req->method('PUT');
  return $self->start_ok($tx)
}