/ 
Net-GitHub-0.95
River stage two • 9 direct dependents • 13 total dependents
22 ++
 / Net::GitHub::V3::PullRequests
  • Distribution: Net-GitHub
  • Module version: 0.95
  • Source (raw)
  • Browse (raw)
  • Changes
  • Homepage
  • Repository (git clone)
  • Issues (4)
  • Testers (460 / 0 / 0)
  • Kwalitee
  • License: perl_5
  • Activity
  • 24 month
  • Tools
  • MOBI | EPUB
  • Download (40.7Kb)
  • MetaCPAN Explorer
  • Rate this distribution
  • Permissions
  • Subscribe to distribution
  • Permalinks
  • This version
  • S.C.O
  • This version
  • Latest version
++ed by:
NEILB BESSARABV PLU RSRCHBOY IOANR

16 PAUSE users
6 non-PAUSE users.

Fayland 林
and 47 contributors

NAME

Net::GitHub::V3::PullRequests - GitHub Pull Requests API

SYNOPSIS

    use Net::GitHub::V3;

    my $gh = Net::GitHub::V3->new; # read L<Net::GitHub::V3> to set right authentication info
    my $pull_request = $gh->pull_request;

DESCRIPTION

To ease the keyboard, we provied two ways to call any method which starts with :user/:repo

1. SET user/repos before call methods below

    $gh->set_default_user_repo('fayland', 'perl-net-github'); # take effects for all $gh->
    $pull_request->set_default_user_repo('fayland', 'perl-net-github'); # only take effect to $gh->pull_request
    my @pulls = $pull_request->pulls();

2. If it is just for once, we can pass :user, :repo before any arguments

    my @pulls = $pull_request->pulls($user, $repo);

METHODS

Pull Requets

http://developer.github.com/v3/pulls/

pulls
    my @pulls = $pull_request->pulls();
    my @pulls = $pull_request->pulls( { state => 'open' } );
    while (my $pr = $pull_request->next_pull( { state => 'open' } )) { ...; }
pull
    my $pull  = $pull_request->pull($pull_number);
create_pull
update_pull
    my $pull = $pull_request->create_pull( {
        "title" => "Amazing new feature",
        "body" => "Please pull this in!",
        "head" => "octocat:new-feature",
        "base" => "master"
    } );
    my $pull = $pull_request->update_pull( $pull_number, $new_pull_data );
commits
files
    my @commits = $pull_request->commits($pull_number);
    my @files   = $pull_request->files($pull_number);
    while (my $commit = $pull_request->next_commit($pull_number)) { ...; }
    while (my $file = $pull_request->next_file($pull_number)) { ...; }
is_merged
merge
    my $is_merged = $pull_request->is_merged($pull_number);
    my $result    = $pull_request->merge($pull_number);

Pull Request Comments API

http://developer.github.com/v3/pulls/comments/

comments
comment
create_comment
update_comment
delete_comment
    my @comments = $pull_request->comments($pull_number);
    while (my $comment = $pull_request->next_comment($pull_number)) { ...; }
    my $comment  = $pull_request->comment($comment_id);
    my $comment  = $pull_request->create_comment($pull_number, {
        "body" => "a new comment",
        commit_id => '586fe4be94c32248043b344e99fa15c72b40d1c2',
        path => 'test',
        position => 1,
    });
    my $comment = $pull_request->update_comment($comment_id, {
        "body" => "Nice change"
    });
    my $st = $pull_request->delete_comment($comment_id);

Pull Request Review API

https://developer.github.com/v3/pulls/review_requests/

reviewers
add_reviewers
delete_reviewers
    my @reviewers = $pull_request->reviewers($pull_number);
    my $result = $pull_request->add_reviewers($pull_number, {
        reviewers => [$user1, $user2],
        team_reviewers => [$team1],
    );
    my $result = $pull_request->delete_reviewers($pull_number, {
        reviewers => [$user1, $user2],
        team_reviewers => [$team1],
    );

AUTHOR & COPYRIGHT & LICENSE

Refer Net::GitHub