NAME

Net::GitHub - Perl Interface for github.com

SYNOPSIS

use Net::GitHub;

my $github = Net::GitHub->new(  # Net::GitHub::V2, default
    owner => 'fayland', repo => 'perl-net-github'
);

# DEPERCATED, for backwards
my $github = Net::GitHub->new(  # Net::GitHub::V1
    version => 1,
    owner => 'fayland', name => 'perl-net-github'
); 

DESCRIPTION

http://github.com is a popular git host.

Please feel free to fork http://github.com/fayland/perl-net-github/tree/master, fix or contribute some code. :)

Read Net::GitHub::V2 for more details.

use Net::GitHub;

my $github = Net::GitHub->new(  # Net::GitHub::V2, default
    owner => 'fayland', repo  => 'perl-net-github',
    login => 'fayland', token => '54b5197d7f92f52abc5c7149b313cf51', # faked
);

# L<Net::GitHub::V2::Repositories>
$github->repos->create( 'sandbox3', 'Sandbox desc', 'http://fayland.org/', 1 );
$github->repos->show();

# L<Net::GitHub::V2::Users>
my $followers = $github->user->followers();
$github->user->update( name => 'Fayland Lam' );

# L<Net::GitHub::V2::Commits>
my $commits = $github->commit->branch();
my $commits = $github->commit->file( 'master', 'lib/Net/GitHub.pm' );
my $co_detail = $github->commit->show( $sha1 );

# L<Net::GitHub::V2::Issues>
my $issues = $github->issue->list('open');
my $issue  = $github->issue->open( 'Bug title', 'Bug detail' );
$github->issue->close( $number );

# L<Net::GitHub::V2::Object>
my $tree = $github->obj_tree( $tree_sha1 );
my $blob = $github->obj_blob( $tree_sha1, 'lib/Net/GitHub.pm' );
my $raw  = $github->obj_raw( $sha1 );

# L<Net::GitHub::V2::Network>
$github->network_meta;
$github->network_data_chunk( $net_hash );

Git URL

http://github.com/fayland/perl-net-github/tree/master

SEE ALSO

Any::Moose

AUTHOR

Fayland Lam, <fayland at gmail.com>

COPYRIGHT & LICENSE

Copyright 2009 Fayland Lam, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.