CPAN::Groonga

ent;

use 5.10.0;
use strict;
use warnings;

our $VERSION = "1.00";

use Carp qw(carp cluck);
use JSON::XS;
use HTTP::Request;
use LWP::UserAgent;

use Class::Tiny qw(token uri no_verify debug errstr)

ebug;

    my $obj;
    eval { $obj = decode_json $response->decoded_content };
    if ($@) {
      $self->errstr('LoginError: API did not return valid JSON') and return;
    }

    if (!$response->is

lf->debug;

  my $obj;
  eval { $obj = decode_json $response->decoded_content };
  if ($@) {
    $self->errstr('RequestError: API did not return valid JSON') and return;
  }

  if (!$response->is_succ

eld};
}

sub DESTROY { }

1;
__END__
=encoding utf-8
=head1 NAME

Megaport::Internal::_Obj - Turn JSON objects into Perl objects with accessors

=head1 SYNOPSIS

    my $eq1 = $mp->session->locations-