App-GitHub

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "6.30"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "Getopt::Long" : "0",
            "IPC::Cmd" : "0",
            "JSON::XS" : "2.232",
            "Moose" : "0",
            "Net::GitHub" : "0.43",
            "Pod::Usage" : "0",
            "Term::ReadKey" : "0",
            "Term::ReadLine" : "0"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {

META.yml  view on Meta::CPAN

generated_by: 'Dist::Zilla version 4.300013, CPAN::Meta::Converter version 2.120630'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: App-GitHub
requires:
  Carp: 0
  Getopt::Long: 0
  IPC::Cmd: 0
  JSON::XS: 2.232
  Moose: 0
  Net::GitHub: 0.43
  Pod::Usage: 0
  Term::ReadKey: 0
  Term::ReadLine: 0
resources:
  repository: git://github.com/worr/perl-app-github.git
version: 1.0.1

Makefile.PL  view on Meta::CPAN

  "DISTNAME" => "App-GitHub",
  "EXE_FILES" => [
    "scripts/github.pl"
  ],
  "LICENSE" => "perl",
  "NAME" => "App::GitHub",
  "PREREQ_PM" => {
    "Carp" => 0,
    "Getopt::Long" => 0,
    "IPC::Cmd" => 0,
    "JSON::XS" => "2.232",
    "Moose" => 0,
    "Net::GitHub" => "0.43",
    "Pod::Usage" => 0,
    "Term::ReadKey" => 0,
    "Term::ReadLine" => 0
  },
  "VERSION" => "1.0.1",
  "test" => {
    "TESTS" => "t/*.t"
  }

dist.ini  view on Meta::CPAN

version = 1.0.1
author = Fayland Lam <fayland@gmail.com>
author = William Orr <will@worrbase.com>
license = Perl_5
copyright_holder = Fayland Lam

[Prereqs]
Net::GitHub = 0.43
Term::ReadLine = 0
Term::ReadKey = 0
JSON::XS = 2.232
Moose = 0
IPC::Cmd = 0
Getopt::Long = 0
Pod::Usage = 0
Carp = 0

[ExecDir]
dir = scripts

[@Filter]

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

use strict;
use warnings;

# ABSTRACT: GitHub Command Tools

use Carp;
use Moose;
use Net::GitHub;
use Term::ReadKey;
use Term::ReadLine;
use JSON::XS;
use IPC::Cmd qw/can_run/;

our $VERSION = '1.0.1';

has 'term' => (
    is       => 'rw',
    required => 1,
    default  => sub { Term::ReadLine->new('Perl-App-GitHub') }
);
has 'prompt' => (

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

        );
        return;
    }

    my @args = splice( @_, 3, scalar @_ - 3 );
    eval {
        my $result = $self->github->$c1->$c2(@args);

        # o.blob return plain text
        if ( ref $result ) {
            $result = JSON::XS->new->utf8->pretty->encode($result);
        }
        $self->print($result);
    };

    if ($@) {

        # custom error
        if ( $@ =~ /login and pass are required/ ) {
            croak "not auth" if $self->silent;
            $self->print(