package App::gh; use warnings; use strict; our $VERSION = '0.66'; use App::gh::Config; use App::gh::API; use Net::GitHub; use Cwd; require App::gh::Git; my $GITHUB; sub config { return "App::gh::Config"; } sub git { return App::gh::Git->repository; } sub github { my $class = shift; my $access_token = $class->config->github_access_token; return $GITHUB ||= Net::GitHub->new( access_token => $access_token ) if $access_token; my $github_id = $class->config->github_id; my $github_password = $class->config->github_password; die "Please configure your github.user in .gitconfig (see App::gh pod)\n" unless $github_id; die "Please configure your github.password in .gitconfig (See App::gh pod)\n" unless $github_password; return $GITHUB ||= Net::GitHub->new( # Net::GitHub::V3 login => $github_id, pass => $github_password, # $class->config->github_token, ); } 1; __END__ =head1 NAME App::gh - An apt-like Github utility. =head1 DESCRIPTIONS App-gh provides an interface for you clone, fork, search github repository very easily. You can even clone all repositories from an author , for example: $ gh all miyagawa $ gh all miyagawa --into path/ this will clone all repositories of miyagawa. Or you can search repository: $ gh search AnyEvent Or list all repository of an author: $ gh list c9s You may clone a repository from an author, then you might want to fork the repository: $ gh clone gugod Social $ cd Social $ gh fork This will fork gugod/Social into yourID/Social. and will add a remote name called 'c9s' (your fork). And you might want to show all forks of this repository: $ gh network to pull changes from one fork. $ gh pull gugod [branch] This will pull changes from gugod/[branch]. specify --merge to merge these changes. --branch if you want the forked branch to be checked out. =head2 Operations Requiring Authentication Some Github operations (like forking) require that your user is authenticated. To do that, simply add the following fields to your .gitconfig file (located in your home directory): [github] user=myuser password=XXX You can find your token by logging into Github, then going to C<"Account Settings"> on the top right corner, then C<"Account Admin">. Make sure to update this information if you ever change your password. =head1 SYNOPSIS list all repository of c9s: $ gh list c9s clone Plack repository from miyagawa: $ gh clone miyagawa/Plack # default: read-only or: $ gh clone miyagawa Plack $ gh clone gugod Social --http $ gh clone clkao Web-Hippie --ro clone from read-only uri: $ gh clone miyagawa/Plack --ro clone from ssh uri: $ gh clone miyagawa/Plack --ssh search repository: $ gh search Plack to clone all repository of miyagawa: $ gh all miyagawa $ gh all clkao --ro # read-only $ gh all clkao --into path/to/clkao to fork project: $ cd AnyMQ $ gh fork clkao to fork current project: $ cd miyagawa/Tatsumaki $ gh fork to show pull requests of the project: $ cd tokuhirom/Amon $ gh pullreq list and show the pull request $ cd gfx/p5-Text-Xslate $ gh pullreq show 3 if you want to send pull request about current branch: $ cd yappo/p5-AnySan $ git checkout -b experimental $ vi lib/AnySan.pm $ git commit -m "bug fix about ..." $ gh pullreq send to show issues of the project: $ cd mattn/p5-Growl-Any $ gh issue list and show the issue $ cd mattn/p5-Growl-GNTP $ gh issue show 3 if you want to create issue: $ cd mattn/p5-Growl-GNTP $ gh issue edit or edit issue $ gh issue edit 3 and comment to the issue $ gh issue comment 3 =head1 ALIASES a => all ci => commit fo => fork is => issue ne => network pr => pullreq pu => pull se => search up => update =head1 AUTHOR c9s , C<< >> =head1 Contributors mattn tyru gfx =head1 BUGS Please report any bugs or feature requests to C, or through the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. =head1 SUPPORT You can find documentation for this module with the perldoc command. perldoc App::gh You can also look for information at: =over 4 =item * RT: CPAN's request tracker L =item * AnnoCPAN: Annotated CPAN documentation L =item * CPAN Ratings L =item * Search CPAN L =back =head1 ACKNOWLEDGEMENTS =head1 LICENSE AND COPYRIGHT Copyright 2010 Cornelius. This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License. See http://dev.perl.org/licenses/ for more information. =cut 1; # End of App::gh