arnings;
use Carp;
use LWP::UserAgent;
use HTTP::Request;
use Mozilla::CA;
use Config::Tiny;
use JSON;
use XML::Simple;
use Digest::MD5 qw( md5_base64 );
use URI::Encode qw(uri_encode uri_decode );
u
(optional) - the payload for POST updates as XML
RETURNS
The response is requested in JSON format which is then processed into a Perl structure that
is returned to the caller.
=cut
> 'application/x-www-form-urlencoded; charset=utf-8');
$req->header( 'Accept' => 'application/json');
$req->content( $access->to_post_body ) if defined $xml;
}
elsif ( $method eq 'GET' )