File Coverage

lib/App/gh/Command/Setup.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch	0	8	0.0
condition	0	15	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	47	25.5

package App::gh::Command::Setup;
use warnings;
use strict;
use base qw(App::gh::Command);

sub run {
    my $self = shift;
    my ( $type , $id , $arg ) = @_;

    print <<'END' unless ( $type && $id && $arg );

Type, id , token|email is required.

Setup command usage:

    \$ gh setup github [id] [token]

    \$ gh setup git [name] [email]

See help:

    \$ gh help setup

END
    return unless ( $type && $id && $arg );

    if( $type eq 'github' || $type eq 'gh' ) {
        qx(git config --global github.user "$id");
        qx(git config --global github.token "$arg");
    }
    elsif( $type eq 'git' ) {
        qx( git config --global user.name "$id" );
        qx( git config --global user.email "$arg" );
    }

    print "Done\n";
}




1;
__END__