s;
use version;
use Carp;
use English qw/ -no_match_vars /;
use IO::Prompt qw/prompt/;
use JSON qw/decode_json/;
use WWW::Mechanize;
use Path::Tiny;
our $VERSION = version->new('0.7.7');
extends 'Gr
cket.org/1.0/user/repositories";
@ARGV = @argv;
$mech->get($url);
my $repos = decode_json $mech->content;
for my $repo ( @$repos ) {
$repos{$repo->{name}} = Group::Git::Repo->
s;
use version;
use Carp;
use English qw/ -no_match_vars /;
use IO::Prompt qw/prompt/;
use JSON qw/decode_json/;
use WWW::Mechanize;
use Path::Tiny;
our $VERSION = version->new('0.7.7');
extends 'Gr
tus, ") accessing $url$start\n";
last;
}
my $response = eval { decode_json $mech->content };
if ( !$response ) {
die $@ || "Error occured processing sta