Catch and report JSON error messages when available

Don't simply die because $tx->res->json returns an undef and you can't treat it as a hash. Signed-off-by: Zak B. Elep <zakame@cpan.org>
zakame · Oct 4, 2011 · 0275fa3 · 0275fa3
1 parent db9f996
commit 0275fa3
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/lib/Google/Plus.pm b/lib/Google/Plus.pm
@@ -45,9 +45,12 @@ sub _request {
   my $tx = $ua->get($url);
   $tx->success and return $tx->res->json;
 
-  my ($message, $code) = $tx->error;
-  my $json_err = $tx->res->json->{error}->{message};
-  die "Error: $code $message ($json_err)";
+  my $message = $tx->error;
+  $tx->res->json and do {
+    my $json_err = $tx->res->json->{error}->{message};
+    $message = join ' ', $message => $json_err;
+  };
+  die "Error: $message";
 }
 
 sub new {