Select Code to Download

package DigiCert::Automation;

...
  push @{ $ua->requests_redirectable }, 'POST';
  return $ua;
}

# Shorthand for attaching the auth token and running an API request.
sub _user_agent_request($self, $req) {
...
    croak "DigiCert ".$res->status_line." -- ".$res->decoded_content;
  }
}

# Shorthand private method for GET request with URL parameters
sub _api_get($self, $uri_tail, $query_params) {
...
  my $res= $self->_user_agent_request($req);
  return $self->_return_data_or_die_informatively($res, $req);
}

perl -Ilib -MDDP -MDigicert::CertCentral -E '\
  my $d= Digicert::CertCentral->new(api_key => $ENV{DIGICERT_API_KEY})
+; \
  my $data= $d->_api_post("automation/viewAutomationDetails", { accoun
+tId => ... }); \
  p $data;'

=head2 api_viewAutomationDetails

...
  length $params{automationId} or croak "automationId required";
  $self->_api_post("automation/viewAutomationDetails", \%params);
}

package Digicert::CertCentral;

...
  $self->data->{autoStatusResponse}{automationStatus};
}