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;