File Coverage

blib/lib/Footprintless/CommandRunner/ExecutionException.pm

Criterion	Covered	Total	%
statement	32	51	62.7
branch	4	12	33.3
condition			n/a
subroutine	9	15	60.0
pod	8	9	88.8
total	53	87	60.9

use strict;
use warnings;

package Footprintless::CommandRunner::ExecutionException;
$Footprintless::CommandRunner::ExecutionException::VERSION = '1.26';
# ABSTRACT: An exception for failures when executing commands
# PODNAME: Footprintless::CommandRunner::ExecutionException

use Term::ANSIColor;
use overload '""' => 'to_string';

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

sub _init {
    my ( $self, $command, $exit_code, $message, $stderr ) = @_;

    $self->{command}   = $command;
    $self->{exit_code} = $exit_code;
    $self->{message}   = $message;
    $self->{stderr}    = $stderr;
    $self->{trace}     = [];

    return $self;
}

sub exit {
    my ( $self, $verbose ) = @_;
    print( STDERR "$self->{message}\n" ) if ( $self->{message} );
    print( STDERR "$self->{stderr}\n" )  if ( $self->{stderr} );
    if ($verbose) {
        print( STDERR colored( ['red'], "[$self->{command}]" ),
            " failed ($self->{exit_code})\n" );
        print( STDERR $self->_trace_string(), "\n" );
    }
    exit $self->{exit_code};
}

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

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

sub get_message {
    return $_[0]->{message};
}

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

sub get_trace {
    return $_[0]->{trace};
}

sub PROPAGATE {
    my ( $self, $file, $line ) = @_;
    push( @{ $self->{trace} }, [ $file, $line ] );
}

sub to_string {
    my ($self) = @_;

    my @parts = ( $self->{exit_code} );
    push( @parts, ": $self->{message}" ) if ( $self->{message} );
    push( @parts, "\n****STDERR****\n$self->{stderr}\n****STDERR****" )
        if ( $self->{stderr} );
    push( @parts, "\n", $self->_trace_string() );

    return join( '', @parts );
}

sub _trace_string {
    my ($self) = @_;
    my @parts = ();
    if ( @{ $self->{trace} } ) {
        push( @parts, "****TRACE****" );
        foreach my $stop ( @{ $self->{trace} } ) {
            push( @parts, "$stop->[0]($stop->[1])" );
        }
        push( @parts, "\n****TRACE****" );
    }
    return join( '', @parts );
}

1;

__END__