args = {
%$args,
};
my $datatransport = $method eq 'get' ? 'form' : 'json';
my $res = $self->ua->$method( $self->endpoint_uri . "$path" =>
{ Authoriza
esult;
croak $res->message .': ' . $res->body if !$res->is_success;
return $res->json;
}
sub crequest($self, $path, $method, $args = {}) {
croak 'Please provide path'
args = {
%$args,
};
my $datatransport = $method eq 'get' ? 'form' : 'json';
my $res = $self->ua->$method( $self->endpoint_uri . 'c/' . $self->company_id . "/$path