File Coverage

blib/lib/Devel/Git/MultiBisect/Init.pm

Criterion	Covered	Total	%
statement	20	57	35.0
branch	0	16	0.0
condition	0	2	0.0
subroutine	7	9	77.7
pod	1	1	100.0
total	28	85	32.9

package Devel::Git::MultiBisect::Init;
use strict;
use warnings;
use v5.14.0;
use Carp;
use Cwd;
use File::Spec;
use File::Temp;

our $VERSION = '0.16';

=head1 NAME

Devel::Git::MultiBisect::Init - Initializer for Devel::Git::MultiBisect

=head1 DESCRIPTION

This package exports no subroutines.  Subroutine C should be called
with a fully qualified name inside Cnew()>.

=head1 SUBROUTINES

=head2 C

=over 4

=item * Purpose

Initializer, to be called from within constructors such as that of
F.  Not meant to be publicly called.

=item * Argument

    my $data = Devel::Git::MultiBisect::Init::init($params);

Single hash reference, typically, the output of C.

=item * Return Value

Single hash reference.

=back

=cut

sub init {
    my $params = shift;
    my %data;

    while (my ($k,$v) = each %{$params}) {
        $data{$k} = $v;
    }

    my @missing_dirs = ();
    for my $dir ( qw| gitdir workdir outputdir | ) {
        push @missing_dirs, $data{$dir}
            unless (-d $data{$dir});
    }
    if (@missing_dirs) {
        croak "Cannot find directory(ies): @missing_dirs";
    }

    $data{last_short} = substr($data{last}, 0, $data{short});
    $data{commits} = _get_commits(\%data);
    $data{targets} //= [];
    $data{commit_counter} = 0;

    return \%data;
}

sub _get_commits {
    my $dataref = shift;
    my $cwd = cwd();
    chdir $dataref->{gitdir} or croak "Unable to chdir";
    my @commits = ();
    my ($older, $cmd);
    my ($fh, $err) = File::Temp::tempfile();
    if ($dataref->{last_before}) {
        $older = '^' . $dataref->{last_before};
        $cmd = "git rev-list --reverse $older $dataref->{last} 2>$err";
    }
    else {
        $older = $dataref->{first} . '^';
        $cmd = "git rev-list --reverse ${older}..$dataref->{last} 2>$err";
    }
    chomp(@commits = `$cmd`);
    if (! -z $err) {
        open my $FH, '<', $err or croak "Unable to open $err for reading";
        my $error = <$FH>;
        chomp($error);
        close $FH or croak "Unable to close $err after reading";
        croak $error;
    }
    my @extended_commits = map { {
        sha     => $_,
        short   => substr($_, 0, $dataref->{short}),
    } } @commits;
    chdir $cwd or croak "Unable to return to original directory";
    return [ @extended_commits ];
}

1;