add command for getting pull requests from github

1 files changed, 10 insertions, 0 deletions

diff --git a/bin/git/git-hub b/bin/git/git-hub
index bf489be..953aa9c 100755
--- a/bin/git/git-hub
+++ b/bin/git/git-hub
@@ -199,6 +199,16 @@ sub run_command_add {
     git "fetch $remote";
 }
 
+sub run_command_pull {
+    my $self = shift;
+    die "usage: git hub pull <num>"
+        unless @_ == 1;
+    my ($num) = @_;
+
+    my $remote = (any { /\bgithub\b/ } git "remote") ? 'github' : 'origin';
+    git "fetch $remote refs/pull/$num/head:pull-$num";
+}
+
 sub _github {
     my $self = shift;
     my %opts = @_;