diff options
Diffstat (limited to 'bin/git/git-hub')
-rwxr-xr-x | bin/git/git-hub | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/bin/git/git-hub b/bin/git/git-hub index d5fa913..c6edf50 100755 --- a/bin/git/git-hub +++ b/bin/git/git-hub @@ -169,6 +169,18 @@ sub run_command_list { } @{ $self->_github(owner => $owner, repo => '')->repos->list }; } +sub run_command_pullreq { + my $self = shift; + my ($owner, $repo, $title, $body) = @_; + die "usage: git hub pullreq <owner> <repo> [title] [description]" + unless @_ == 2 || @_ == 3 || @_ == 4; + + $self->_github(owner => $owner, repo => $repo)->pull_request->pull_request( + title => $title, + body => $body, + ); +} + sub _github { my $self = shift; my %opts = @_; |