File Coverage

blib/lib/Footprintless/CommandRunner.pm

Criterion	Covered	Total	%
statement	39	41	95.1
branch	4	4	100.0
condition			n/a
subroutine	13	15	86.6
pod	8	8	100.0
total	64	68	94.1

use strict;
use warnings;

package Footprintless::CommandRunner;
$Footprintless::CommandRunner::VERSION = '1.28';
# ABSTRACT: A contract for an command runner
# PODNAME: Footprintless::CommandRunner

use Carp;
use Footprintless::CommandRunner::ExecutionException;
use Log::Any;

my $logger = Log::Any->get_logger();

sub new {
    return bless( {}, shift )->_init(@_);
}

sub _init {
    my ( $self, @options ) = @_;
    return $self;
}

sub get_command {
    return $_[0]->{last_call}{command};
}

sub get_exception {
    return $_[0]->{last_call}{exception};
}

sub get_exit_code {
    return $_[0]->{last_call}{exit_code};
}

sub get_stderr {
    return $_[0]->{last_call}{stderr};
}

sub get_stdout {
    return $_[0]->{last_call}{stdout};
}

sub _run {
    croak("must use an implementation class");
}

sub run {
    my ( $self, $command, @runner_options ) = @_;

    $self->{last_call} = { command => $command };

    $logger->debugf( 'running [%s]', $command );
    $logger->tracef( 'with options %s', \@runner_options );
    my $exit_code;
    eval {
        $exit_code = $self->_run( $command, @runner_options );
        $self->{last_call}{exit_code} = $exit_code;
    };
    if ($@) {
        $self->{last_call}{exception} = $@;
        $exit_code = -1;
    }
    return $exit_code;
}

sub run_or_die {
    my ( $self, $command, @runner_options ) = @_;
    my $exit_code = $self->run( $command, @runner_options );
    if ($exit_code) {
        die(Footprintless::CommandRunner::ExecutionException->new(
                $command,                      $exit_code,
                $self->{last_call}{exception}, $self->{last_call}{stderr}
            )
        );
    }
    return $self->{last_call}{stdout};
}

1;

__END__