File Coverage

lib/Test/Docker/Image/Utility.pm

Criterion	Covered	Total	%
statement	25	29	86.2
branch	1	2	50.0
condition			n/a
subroutine	8	9	88.8
pod	0	3	0.0
total	34	43	79.0

package Test::Docker::Image::Utility;

use strict;
use warnings;

use parent 'Exporter';
use IPC::Run3;
use Time::HiRes;

use constant DEBUG => $ENV{DEBUG_TEST_DOCKER_IMAGE};

our @EXPORT = qw(docker);

our @EXPORT_OK = qw(run);

sub WARN {
    my $msg = join " ",  @_;
    chomp $msg;
    warn sprintf "[%s %.5f] %s\n", __PACKAGE__, Time::HiRes::time, $msg;
}

sub docker { run('docker', @_); }

sub run {
    my (@cmd) = @_;

    DEBUG && WARN sprintf "Run [ %s ]", join ' ', @cmd;
    my $is_success = run3 [ @cmd ], \my $in, \my $out, \my $err;
    if ($is_success) {
        chomp $out;
        return $out;
    } else {
        die $err;
    }
}

1;