File Coverage

blib/lib/Git/Release/BranchManager.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Git::Release::BranchManager;
use warnings;
use strict;
use Moose;

has manager => ( is => 'rw', isa => 'Git::Release' );


sub _parse_branches {
    my $self = shift;
    my @list = grep { ! /HEAD/ } $self->manager->repo->command( 'branch' , '-a' );
    chomp @list;

    # strip spaces
    map { s{^\*?\s*}{}g } @list;
    return @list;
}

sub local_branches {
    my $self = shift;
    my @list = grep !/^remotes/, $self->_parse_branches;
    return map { $self->new_branch( ref => $_ ) } @list;
}

sub remote_branches {
    my $self = shift;
    my @list = grep /^remotes/,$self->_parse_branches;

    # remove remtoes names, strip star char.
    return map { $self->new_branch( ref => $_ ) } @list;
}


sub current {
    my $self = shift;
    my $name = $self->current_name;
    return $self->new_branch( ref => $name );
}

sub current_name {
    my $self = shift;
    my $name = $self->manager->repo->command('rev-parse','--abbrev-ref','HEAD');
    chomp( $name );
    return $name;
}

sub feature_branches {
    my ($self,%args) = @_;
    my $prefix = $self->manager->config->feature_prefix;
    return grep { $_->name =~ /^$prefix\// } $self->branches( %args );
}

sub ready_branches {
    my ($self,%args) = @_;
    my $prefix = $self->manager->config->ready_prefix;
    return grep { $_->name =~ /^$prefix\// } $self->branches( %args );
}

sub site_branches {
    my ($self,%args) = @_;
    my $prefix = $self->manager->config->site_prefix;
    return grep { $_->name =~ /^$prefix\// } $self->branches( %args );
}

sub hotfix_branches {
    my ($self,%args) = @_;
    my $prefix = $self->manager->config->hotfix_prefix;
    return grep { $_->name =~ /^$prefix\// } $self->branches( %args );
}

sub new_branch {
    my $self = shift;
    my %args;
    %args = @_ if @_ > 1;
    %args = (ref => $_[0]) if @_ == 1;
    my $branch = Git::Release::Branch->new(
            %args, manager => $self->manager );
    return $branch;
}

sub branches {
    my ($self,%args) = @_;
    if( $args{local} ) {
        return $self->local_branches;
    } elsif( $args{remote} ) {
        return $self->remote_branches;
    }
    return ($self->local_branches , $self->remote_branches);
}

sub find_branches {
    my ($self,$name) = @_;
    my @branches = ( $self->find_local_branches( $name ), $self->find_remote_branches( $name ) );
    return @branches if wantarray;
    return $branches[0];
}

sub find_local_branches {
    my ( $self, $name ) = @_;
    my @branches = $self->local_branches;
    if ( ref $name eq 'RegExp' ) {
        @branches = grep { $_->name =~ $name } @branches;
    } else {
        @branches = grep { $_->name eq $name } @branches;
    }
    return @branches if wantarray;
    return $branches[0];
}

sub find_remote_branches {
    my ( $self, $name ) = @_;
    my @branches = $self->remote_branches;
    if ( ref $name eq 'RegExp' ) {
        @branches = grep { $_->name =~ $name } @branches;
    } else {
        @branches = grep { $_->name eq $name } @branches;
    }
    return @branches if wantarray;
    return $branches[0];
}

sub develop {
    return $_[0]->find_branches('develop');
}

sub master {
    return $_[0]->find_branches('master');
}

1;