diff options
-rwxr-xr-x | bin/git/git-hub | 13 |
1 files changed, 6 insertions, 7 deletions
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 <subcommand> [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, ); } |