ngs;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = ();
our @EXPORT = ();
use JSON::MaybeXS;
use LWP::UserAgent;
use Object::Result;
use URI;
our $VERSION = '0.04';
sub new {
my $error;
if ($response->is_success()) {
local $@;
my $data = eval { decode_json($content) };
$error = $@;
if ($data) {
$error = $data->{error};
ntent());
if ($response->code() != 204) {
local $@;
my $data = eval { decode_json($content) };
my $error = $@;
$error = $data->{error} if (!$error && $data);