File Coverage

blib/lib/Docker/CLI/Wrapper/Base.pm

Criterion	Covered	Total	%
statement	17	38	44.7
branch	0	8	0.0
condition			n/a
subroutine	6	10	60.0
pod	4	4	100.0
total	27	60	45.0

package Docker::CLI::Wrapper::Base;
$Docker::CLI::Wrapper::Base::VERSION = '0.0.7';
use strict;
use warnings;
use 5.014;
use autodie;

use Moo;
use Path::Tiny qw/ path /;

has 'docker_cmd_line_prefix' =>
    ( is => 'ro', lazy => 1, builder => 'calc_docker_cmd_line_prefix' );

sub do_system
{
    my ( $self, $args ) = @_;

    my $cmd = $args->{cmd};
    print "Running [@$cmd]\n";
    if ( system(@$cmd) )
    {
        die "Running [@$cmd] failed!";
    }

    return;
}

sub calc_docker_cmd_line_prefix
{
    my $self = shift;

    {
        my $fh = path("/etc/fedora-release");

        if ( -e $fh )
        {
            if ( my ($fedora_ver) =
                $fh->slurp_utf8() =~ /^Fedora release ([0-9]+)/ )
            {
                if ( $fedora_ver >= 31 )
                {
                    # return ['podman'];
                    return [ 'systemd-run', '--scope', '--user', 'podman' ];
                }
            }
        }
    }
    return ['docker'];
}

sub calc_docker_cmd
{
    my ( $self, $args ) = @_;

    my $cmd = $args->{cmd};
    return { docker_cmd => [ @{ $self->docker_cmd_line_prefix }, @$cmd, ], };
}

sub docker
{
    my ( $self, $args ) = @_;

    my $cmd = $args->{cmd};
    return $self->do_system(
        { %$args, cmd => $self->calc_docker_cmd( $args, )->{'docker_cmd'}, } );
}

1;

__END__