File Coverage

blib/lib/App/Prove/Elasticsearch/Provisioner/Git.pm

Criterion	Covered	Total	%
statement	39	40	97.5
branch	2	4	50.0
condition			n/a
subroutine	11	11	100.0
pod	4	4	100.0
total	56	59	94.9

package App::Prove::Elasticsearch::Provisioner::Git;
$App::Prove::Elasticsearch::Provisioner::Git::VERSION = '0.001';

# PODNAME: App::Prove::Elasticsearch::Provisioner::Git;
# ABSTRACT: Provision new versions to test using git

use strict;
use warnings;

use App::perlbrew;
use Perl::Version;
use Capture::Tiny qw{capture_stderr};
use Git;

sub get_available_provision_targets {
    my ($cv) = @_;
    my @bs = Git::command(qw{rev-parse --abbrev-ref --all});
    @bs = grep { $cv ne $_ } @bs if $cv;
    return @bs;
}

sub pick_platform {
    my (@plats) = @_;

    my $plat;
    foreach my $p (@plats) {
        my @cmd = (qw{git reflog show}, $p);
        my $ref_exists;
        capture_stderr { $ref_exists = Git::command(@cmd) };
        if ($ref_exists) {
            $plat = $p;
            @plats = grep { $_ ne $p } @plats;
            last;
        }
    }
    return $plat, \@plats;
}

sub can_switch_version {
    my $versioner = shift;
    return $versioner eq 'App::Prove::Elasticsearch::Versioner::Git';
}

sub switch_version_to {
    my $version_to = shift;
    return Git::command(qw{reset --hard}, $version_to);
}

*provision = \&switch_version_to;

1;

__END__