File Coverage

blib/lib/App/Prun.pm

Criterion	Covered	Total	%
statement	17	39	43.5
branch	0	10	0.0
condition			n/a
subroutine	6	12	50.0
pod	0	4	0.0
total	23	65	35.3

use strict;
use warnings;
package App::Prun;
$App::Prun::VERSION = '1.11';
use Moo;
use Storable qw( freeze );  # to support testing
use namespace::clean;

use 5.010;

has pm => ( is => 'ro', required => 1 );
has report_failed_procs => ( is => 'ro', default => 1 );
has exit_on_failed_proc => ( is => 'ro', default => 0 );

sub BUILD {
    my $self = shift;
    $self->pm->run_on_finish(sub{ $self->on_finish_callback(@_) });
    $self->pm->set_waitpid_blocking_sleep(0);
}

sub on_finish_callback {
    my $self = shift;
    my ($pid, $rc, $id, $sig, $core, $ref) = @_;

    if ($rc) {
        print STDERR "[$pid] Command '$id' failed with exit code $rc\n"
            if $self->report_failed_procs;

        return unless $self->exit_on_failed_proc;

        $self->pm->wait_all_children;
        exit 1;
    }
}

sub run_command {
    my $self = shift;
    my $cmd = shift;

    chomp $cmd;

    # Skip blank lines and comments
    return if (/^\s*(#|$)/);

    $self->pm->start($cmd) and return;

    # In the child now

    my $rc = system($cmd);
    $self->pm->finish($rc >> 8);
}

sub done { shift->pm->wait_all_children }

sub _test_dump {
    $Storable::forgive_me = 1;
    print freeze(shift);
    exit 255;
}

# ABSTRACT: Provides the prun script as a command line interface to L.
1;

__END__