Handle errors more gracefully when updating GitHub issue counts

Add proper error handling to the GitHub issue count code. If the repo is
missing, we can assume it has been deleted, so we can delete the issue
information we have stored. Other errors can get logged and investigated
later.

Author: haarg

lib/MetaCPAN/Script/Tickets.pm

@@ -119,7 +119,7 @@ sub index_github_bugs {
 
     my $json = JSON::MaybeXS->new( allow_nonref => 1 );
 
-    while ( my $release = $scroll->next ) {
+RELEASE: while ( my $release = $scroll->next ) {
         my $resources = $release->resources;
         my ( $user, $repo, $source )
             = $self->github_user_repo_from_resources($resources);
@@ -146,6 +146,22 @@ sub index_github_bugs {
                 }
 END_QUERY
 
+        if ( my $error = $data->{error} ) {
+            for my $error (@$error) {
+                my $log_message
+                    = "[$release->{distribution}] $error->{message}";
+                if ( $error->{type} eq 'NOT_FOUND' ) {
+                    delete $summary{ $release->{'distribution'} }{'bugs'}
+                        {'github'};
+                    log_info {$log_message};
+                }
+                else {
+                    log_error {$log_message};
+                }
+                next RELEASE;
+            }
+        }
+
         my $open
             = $data->{data}{repository}{openIssues}{totalCount}
             + $data->{data}{repository}{openPullRequests}{totalCount};