/usr/share/perl5/Net/GitHub.pm is in libnet-github-perl 0.86-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 | package Net::GitHub;
use Net::GitHub::V3;
our $VERSION = '0.86';
our $AUTHORITY = 'cpan:FAYLAND';
sub new {
my $class = shift;
Net::GitHub::V3->new(@_);
}
1;
__END__
=head1 NAME
Net::GitHub - Perl Interface for github.com
=head1 SYNOPSIS
use Net::GitHub;
my $github = Net::GitHub->new( # Net::GitHub::V3
login => 'fayland', pass => 'secret'
);
# Pass api_url for GitHub Enterprise installations. Do not include a
# trailing slash
my $github = Net::GitHub->new( # Net::GitHub::V3
login => 'fayland',
pass => 'secret',
api_url => 'https://gits.aresweet.com/api/v3'
);
# suggested
# use OAuth to create token with user/pass
my $github = Net::GitHub->new( # Net::GitHub::V3
access_token => $token
);
# L<Net::GitHub::V3::Users>
my $user = $github->user->show('nothingmuch');
$github->user->update( bio => 'Just Another Perl Programmer' );
# L<Net::GitHub::V3::Repos>
my @repos = $github->repos->list;
my $rp = $github->repos->create( {
"name" => "Hello-World",
"description" => "This is your first repo",
"homepage" => "https://github.com"
} );
=head1 DESCRIPTION
L<http://github.com> is a popular git host.
This distribution provides easy methods to access GitHub via their APIs.
Check L<http://developer.github.com/> for more details of the GitHub APIs.
Read L<Net::GitHub::V3> for API usage.
If you prefer object oriented way, L<Pithub> is 'There is more than one way to do it'.
=head2 FAQ
=over 4
=item * create access_token for Non-Web Application
my $gh = Net::GitHub::V3->new( login => 'fayland', pass => 'secret' );
my $oauth = $gh->oauth;
my $o = $oauth->create_authorization( {
scopes => ['user', 'public_repo', 'repo', 'gist'], # just ['public_repo']
note => 'test purpose',
} );
print $o->{token};
after create the token, you can use it without your password publicly written
my $github = Net::GitHub->new(
access_token => $token, # from above
);
=back
=head1 Git
L<http://github.com/fayland/perl-net-github/>
=head1 SEE ALSO
L<Pithub>
=head1 AUTHOR
Fayland Lam, C<< <fayland at gmail.com> >>
Everyone who is listed in B<Changes>.
=head1 COPYRIGHT & LICENSE
Copyright 2009-2012 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.
|