view release on metacpan or  search on metacpan

lib/App/gqmt.pm  view on Meta::CPAN

226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
if ( ! $res->is_success ) {
  my $res_cont  = $self->jso->decode( $res->content );
  my $res_error = sprintf("--- ERROR ---\n\n%s\n\nMessage: %s\n    doc: %s\n\n",
                          $res->status_line,
                          $res_cont->{message},
                          $res_cont->{documentation_url} );
  print $res_error;
  exit 1;
}
 
my $reply = $self->jso->decode( $res->decoded_content );
 
if ( exists $reply->{errors} ) {
  unshift @{$reply->{errors}}, "--- ERROR ---";
  p ( $reply->{errors}, colored => $self->option('colored') );
  exit 1;
}
 
p ( $reply, colored => $self->option('colored') );
print "package of version ID: $_, has been successfully deleted\n" if $self->option('d') > 0;

lib/App/gqmt.pm  view on Meta::CPAN

298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
if ( ! $res->is_success ) {
  my $res_cont  = $self->jso->decode( $res->content );
  my $res_error = sprintf("--- ERROR ---\n\n%s\n\nMessage: %s\n    doc: %s\n\n",
                          $res->status_line,
                          $res_cont->{message},
                          $res_cont->{documentation_url} );
  print $res_error;
  exit 1;
}
 
my $reply = $self->jso->decode( $res->decoded_content );
 
p ( $reply, caller_message => "REPLY: __FILENAME__:__LINE__ ", colored => $self->option('colored') )
  if $self->option('d') > 2 && ! defined $arg->{inf}->{startCursor};
 
if ( exists $reply->{errors} ) {
  unshift @{$reply->{errors}}, "--- ERROR ---";
  p ( $reply->{errors}, colored => $self->option('colored') );
  exit 1;
} elsif ( $reply->{data}->{repository}->{packages}->{nodes} ) {
  print "WARNING: not hardcoded package name \"", $self->option('package'), "\"\n"