Added more logical processing of errors

ivanwills · Aug 5, 2019 · 885a8cc · 885a8cc
1 parent 2c413fd
commit 885a8cc
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/lib/Group/Git/Stash.pm b/lib/Group/Git/Stash.pm
@@ -79,8 +79,13 @@ sub _repos {
 
     while ($more) {
         $mech->get( $url . $start );
-        my $response = eval { decode_json $mech->content }
-            or die $@ . "Possibly check your password\n";
+        my $response = eval { decode_json $mech->content };
+        if ( !$response ) {
+            die $@ || "Error occured processing stash server response\n";
+        }
+        elsif ( $response->{errors} ) {
+            die join '', map {"$_->{message}\n"} @{ $response->{errors} };
+        }
 
         REPO:
         for my $repo (@{ $response->{values} }) {