File Coverage

blib/lib/App/SCM/Digest/Utils.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod	2	3	66.6
total	48	50	96.0

package App::SCM::Digest::Utils;

use strict;
use warnings;

use File::Temp;

use base qw(Exporter);
our @EXPORT_OK = qw(system_ad system_ad_op slurp);

sub slurp
{
    my ($path) = @_;

    open my $fh, '<', $path;
    my @lines;
    while (my $line = <$fh>) {
        push @lines, $line;
    }
    close $fh;
    return join '', @lines;
}

sub _system_ad
{
    my ($cmd, $ft) = @_;

    my $res = system("$cmd");
    if ($res != 0) {
        my $extra = '';
        if ($ft) {
            my $content = slurp($ft->filename());
            chomp $content;
            $extra = " ($content)";
        }
        die "Command ($cmd) failed: $res$extra";
    }

    return 1;
}

sub system_ad
{
    my ($cmd) = @_;

    my $ft = File::Temp->new();
    my $redirect = '>'.$ft->filename();

    return _system_ad("$cmd $redirect 2>&1", $ft);
}

sub system_ad_op
{
    my ($cmd) = @_;

    return _system_ad("$cmd 2>&1");
}

1;

__END__