Better organize execution flow

This commit is contained in:
Brian Buchalter 2013-01-18 11:19:56 -04:00
parent 273d2a93bc
commit c8382eabb6

View File

@ -52,12 +52,7 @@ my $json_response;
eval { eval {
$json_response = decode_json($response->content); $json_response = decode_json($response->content);
print "JSON repsonse decoded successfully." print "JSON repsonse decoded successfully.";
} or do {
print "Unable to decode JSON, invalid response?";
exit EXIT_CRITICAL;
};
$status = EXIT_OK; $status = EXIT_OK;
@ -97,6 +92,11 @@ if ($opts{d}) {
exit $status; exit $status;
} or do {
print "Unable to decode JSON, invalid response?";
exit EXIT_CRITICAL;
};
sub HELP_MESSAGE sub HELP_MESSAGE
{ {
print <<EOHELP print <<EOHELP