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