File Coverage

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

Criterion	Covered	Total	%
statement	43	43	100.0
branch	4	4	100.0
condition			n/a
subroutine	11	11	100.0
pod	5	5	100.0
total	63	63	100.0

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

# PODNAME: App::Prove::Elasticsearch::Provisioner::Perl;
# ABSTRACT: Provision perl on your SUT

use strict;
use warnings;

use App::perlbrew;
use Perl::Version;

sub get_available_provision_targets {
    my ($cv)  = @_;
    my $pb    = App::perlbrew->new('list');
    my @perls = $pb->available_perls();
    no warnings 'numeric';
    @perls = grep {
        my $v_sanitized = $_;
        $v_sanitized =~ s/c?perl-?//g;
        $v_sanitized =~ s/\.0/\./g;    #remove leading zero from ancient perls
        Perl::Version->new(sprintf("%.3f", $cv)) !=
          Perl::Version->new(sprintf("%.2f", $v_sanitized))
    } @perls if $cv;
    use warnings;
    return @perls;
}

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

    my $plat;
    foreach my $p (@plats) {
        if ($p =~ m/^perl/i) {
            $plat = $p;
            @plats = grep { $_ ne $p } @plats;
            last;
        }
    }
    return $plat, \@plats;
}

sub can_switch_version {
    return 0;
}

sub switch_version_to {
    die "Can't switch version via changing perl interpreter.";
}

sub provision {
    my ($desired_platform) = @_;
    my $pb = App::perlbrew->new('install');
    $pb->run_command_install($desired_platform);

    #This *should*? be enough magic to 'do the deed'
    %ENV = $pb->perlbrew_env($desired_platform);
    return $desired_platform;
}

1;

__END__