2. App-level ‘ping’
use App::Module;
my $ua = App::Module::https_user_agent();
my $url = App::Module::get_endpoint('import_complete');
my $message = JSON::XS::encode_json({
batch_id => "9999999",
status => "failure",
});
my $resp = App::Module::https_post($ua, $url, $message);
my $content_type = $resp->content_type || 'unknown';
if($content_type =~ m{^application/json}) {
if($resp->content =~ m{SVBatch batch_id 9999999 does not exist}) {
print "Valid response received\n";
exit 0;
}
}
print $resp->as_string;
exit 1;