CPAN::Groonga

:Tiny;
  use JSON::MaybeXS;
  use Kubernetes::REST::Error;
  use Kubernetes::REST::HTTPRequest;
  use Module::Runtime qw/require_module/;

  has _json => (is => 'ro', default => sub { JSON::MaybeXS->n

(defined $body_struct) ? ('Content-Type' => 'application/json') : (),
      Accept => 'application/json',
    });
    $req->content($self->_json->encode($body_struct)) if (defined $body_struct);

    

or " . $call->method if (not defined $return_class);
    my $object = eval {
      $self->parser->json_to_object($return_class, $response->content);
    };
    Kubernetes::REST::Error->throw(
      ty

bernetes::REST::Error->throw(
      type => 'UnparseableResponse',
      message => 'Can\'t parse JSON content',
      detail => $response->content,
    ) if ($@);

    # Throw a Kubernetes::REST::Rem

age Kubernetes::REST::Result2Hash;
  use Moo;
  use JSON::MaybeXS;
  use Kubernetes::REST::Error;

  has parser => (is => 'ro', default => sub { JSON::MaybeXS->new });

  sub result2return {
    my ($

bernetes::REST::Error->throw(
      type => 'UnparseableResponse',
      message => 'Can\'t parse JSON content',
      detail => $response->content,
    ) if ($@);

    # Throw a Kubernetes::REST::Rem