App-gqmt

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Data::Printer" : "0.38",
            "File::Basename" : "2.84",
            "Getopt::Long" : "2.34",
            "HTTP::Request" : "6.25",
            "JSON" : "2.00",
            "LWP::Protocol::https" : "6.00",
            "LWP::UserAgent" : "6.00",
            "Pod::Man" : "2.25",
            "Pod::Usage" : "1.51",
            "Template::Toolkit" : "3.009",
            "Time::Piece" : "1.05",
            "perl" : "5.016001"
         }
      }

META.yml  view on Meta::CPAN

  version: '1.4'
name: App-gqmt
no_index:
  directory:
    - t
    - inc
requires:
  Data::Printer: '0.38'
  File::Basename: '2.84'
  Getopt::Long: '2.34'
  HTTP::Request: '6.25'
  JSON: '2.00'
  LWP::Protocol::https: '6.00'
  LWP::UserAgent: '6.00'
  Pod::Man: '2.25'
  Pod::Usage: '1.51'
  Template::Toolkit: '3.009'
  Time::Piece: '1.05'
  perl: '5.016001'
resources:
  repository: ssh://git@github.com:z-eos/gqmt.git

Makefile.PL  view on Meta::CPAN

    VERSION_FROM     => 'lib/App/gqmt.pm',
    EXE_FILES        => [ 'gqmt' ],
    AUTHOR           => 'Zeus Panchenko <zeus@gnu.org.ua>',
    LICENSE          => 'gpl_3',
    MIN_PERL_VERSION => 5.016001,
    PREREQ_PM        => {
	'Data::Printer'        => '0.38',
	    'File::Basename'       => '2.84',
	    'Getopt::Long'         => '2.34',
	    'JSON'                 => '2.00',
	    'HTTP::Request'        => '6.25',
	    'LWP::UserAgent'       => '6.00',
	    'LWP::Protocol::https' => '6.00',
	    'Pod::Man'             => '2.25',
	    'Pod::Usage'           => '1.51',
	    'Time::Piece'          => '1.05',
	    'Template::Toolkit'    => '3.009',
    },

    (eval
     { ExtUtils::MakeMaker->VERSION(6.46) } ?

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

use strict;
use warnings;
use diagnostics;

use Data::Printer caller_info => 1, print_escapes => 1, output => 'stdout', class => { expand => 2 },
  caller_message => "DEBUG __FILENAME__:__LINE__ ";
use Getopt::Long  qw(:config no_ignore_case gnu_getopt auto_help auto_version);
use Pod::Man;
use 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 {
  my $class = shift;

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

  #   if $self->{_option}{package} && ! exists $self->{_option}{pkg}{$self->{_option}{package}};

  pod2usage(-exitval => 2, -verbose => 2, -msg => "\nERROR: requested rows number should be 1..100\n\n")
    if $self->{_option}{rows_number} && ( $self->{_option}{rows_number} < 1 || $self->{_option}{rows_number} > 100 );

  # pod2usage(-exitval => 0, -verbose => 2, -msg => "\nERROR: -v is mandatory when -D and -s are used together\n\n")
  #   if $delete && $single_iteration && ! $v;

  p $self->{_option} if $self->{_option}{d} > 2;

  $self->{_option}{req} = HTTP::Request->new( 'POST',
					      $self->{_option}{url},
					      [ 'Authorization' => 'bearer ' . $self->{_option}{token} ] );

  return $self;
}

sub progname { shift->{_progname} }
sub progargs { return join(' ', @{shift->{_progargs}}); }

sub option {