From 37d41be22a5717c93410be7dc1eed1a79f890f5f Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 14 Feb 2011 13:48:37 -0600 Subject: make git-hub not broken --- bin/git/git-hub | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'bin/git') diff --git a/bin/git/git-hub b/bin/git/git-hub index cbfb4cb..e2bee74 100755 --- a/bin/git/git-hub +++ b/bin/git/git-hub @@ -23,15 +23,12 @@ sub new { my @argv = @_; bless { - user => $user, - token => $token, argv => \@argv, }, $class; } -sub user { shift->{user} } -sub token { shift->{token} } -sub argv { @{ shift->{argv} } } +sub user { shift->_github->login } +sub argv { @{ shift->{argv} } } sub shift_argv { my $self = shift; @@ -47,10 +44,11 @@ sub run { } sub usage { - my @subcommands = do { no strict 'refs'; grep { /^run_command_/ } keys %{ __PACKAGE__ . '::' }; + my @subcommands = do { no strict 'refs'; grep { /^run_command_/ } keys %{ __PACKAGE__ . '::' } }; die "usage: git hub [args...]\n" . "subcommands:\n" - . " " . join "\n ", ; + . " " . (join "\n ", map { s/^run_command_//; $_ } @subcommands) + . "\n"; } sub run_command { @@ -198,6 +196,7 @@ sub _github { (defined $token ? (token => $token) : ()), + repo => 'something_not_real', %opts, ); } -- cgit v1.2.3-54-g00ecf