Yet Another CPAN Grep

App-gqmt ( Z/ZE/ZEUS/App-gqmt/App-gqmt-1.02.tar.gz, ZEUS, 2021; MetaCPAN )

App-gqmt/lib/App/gqmt.pm ( view source; MetaCPAN )

se Pod::Usage    qw(pod2usage);
use File::Basename;
use HTTP::Request ();
use LWP::UserAgent;
use JSON;
use Time::Piece;
use Template;

my  @PROGARG = ($0, @ARGV);
our $VERSION = '1.02';

sub new {

 => $self->option('http_timeout'), );
  return $lwp;
}

sub jso {
  my $self = shift;
  my $jso = JSON->new->allow_nonref;
  return $jso;
}

sub run {
  my $self = shift;
  my $versions = [];

  p ( $

') > 2;

  $self->option('req')->header(Accept => 'application/vnd.github.package-deletes-preview+json');

  my $query;

  foreach ( keys( %{$arg->{del}} ) ) {
    $query = sprintf('mutation { deleteP