mes.com API interface for Perl
# pragmas
use utf8;
use 5.10.0;
#imports
use Moo;
use Carp;
use JSON;
use Try::Tiny;
use LWP::UserAgent;
# version
our $VERSION = 0.01;
# attributes
has '_ua' => (
, form => $args
);
my $json = {};
try {
$json = JSON::decode_json($res->decoded_content)
}
catch {
warn "JSON Decode Exception: $_";
};
return $json;
}
1;
__END__
=encoding u