File Coverage

lib/App/gh/Command/Push.pm

Criterion	Covered	Total	%
statement	15	30	50.0
branch	0	4	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	41	48.7

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

=head1 NAME

App::gh::Command::Push - push changes to writable github remotes

=cut

sub run {
    my $self = shift;

    die "Not in git repository\n" unless( -e ".git/HEAD" );

    open FH , "<" , ".git/HEAD";
    my $ref = ;
    close FH;
    chomp( $ref );

    my ($branch) = ( $ref =~ m{ref:\s(\S+)} );

    my @lines = split /\n/,qx{ git remote -v | grep '(fetch)'};
    for my $line ( @lines ) {
        my ( $remote , $uri , $type ) = ($line =~ m{^(\w+)\s+(\S+)\s+\((\w+)\)} );
        info "Updating from $remote ...";
        qx{ git pull --rebase $remote $branch};

        if( $uri =~ /^git\@github\.com/ ) {
            info "Pushing changes to $remote : $uri";
            qx{ git push $remote $branch};
        }
    }
}

1;