/usr/share/perl5/Net/GitHub/V1.pm is in libnet-github-perl 0.30-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 109 110 111 112 113 114 115 116 | package Net::GitHub::V1;
use Any::Moose;
our $VERSION = '0.06';
our $AUTHORITY = 'cpan:FAYLAND';
use Net::GitHub::V1::Project;
use Net::GitHub::V1::User;
use Net::GitHub::V1::Search;
with 'Net::GitHub::V1::Role';
sub project {
my $self = shift;
return Net::GitHub::V1::Project->new( @_ );
}
sub user {
my $self = shift;
return Net::GitHub::V1::User->new( @_ );
}
has '_search' => (
is => 'rw',
isa => 'Net::GitHub::V1::Search',
lazy => 1,
default => sub {
return Net::GitHub::V1::Search->new();
},
handles => ['search'],
);
no Any::Moose;
__PACKAGE__->meta->make_immutable;
1;
__END__
=head1 NAME
Net::GitHub::V1 - (DEPERCATED, use V2) Perl Interface for github.com (V1)
=head1 SYNOPSIS
use Net::GitHub::V1;
# for http://github.com/fayland/perl-net-github/tree/master
my $github = Net::GitHub::V1->new();
# project
my $prj = $github->project( owner => 'fayland', name => 'perl-net-github' );
print $prj->description;
print $prj->public_clone_url;
my @commits = $prj->commits;
foreach my $c ( @commits ) {
my $commit = $prj->commit( $c->{id} );
}
my @downloads = $prj->downloads;
$prj->signin( 'login', 'password' );
$prj->wiki->new_page( 'PageTitle', "Page Content\n\nLine 2\n" );
# user
my $user = $github->user( 'fayland' );
foreach my $repos ( @{ $user->repositories} ) {
print "$repos->{owner} + $repos->{name}\n";
}
# search
my $result = $github->search( 'fayland' );
=head1 DESCRIPTION
L<http://github.com> is a popular git host.
Please feel free to fork L<http://github.com/fayland/perl-net-github/tree/master>, fix or contribute some code. :)
=head1 METHODS
=head2 project
$github->project( owner => 'fayland', name => 'perl-net-github' );
$github->project( 'fayland', 'perl-net-github' );
instance of L<Net::GitHub::V1::Project>
=head2 user
$github->user( 'fayland' );
instance of L<Net::GitHub::V1::User>
=head2 search
$github->search('fayland');
handled by L<Net::GitHub::V1::Search>
=head1 Git URL
L<http://github.com/fayland/perl-net-github/tree/master>
=head1 SEE ALSO
L<Any::Moose>
=head1 AUTHOR
Fayland Lam, C<< <fayland at gmail.com> >>
=head1 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.
|