File Coverage

blib/lib/Beam/Runner/ExecCommand.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch	4	8	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	25	33	75.7

package Beam::Runner::ExecCommand;
our $VERSION = '0.015';
# ABSTRACT: Run an external command

#pod =head1 SYNOPSIS
#pod
#pod     beam run
#pod
#pod =head1 DESCRIPTION
#pod
#pod This runnable module runs an external command using L.
#pod
#pod =head1 SEE ALSO
#pod
#pod L, L
#pod
#pod =cut

use Moo;
use warnings;
with 'Beam::Runnable';
use Types::Standard qw( Str ArrayRef );

#pod =attr command
#pod
#pod The command to run. If a string, will execute the command in a subshell.
#pod If an arrayref, will execute the command directly without a subshell.
#pod
#pod =cut

has command => (
    is => 'ro',
    isa => ArrayRef[Str]|Str,
    required => 1,
);

sub run {
    my ( $self, @args ) = @_;
    my $cmd = $self->command;
    my $exit;
    if ( ref $cmd eq 'ARRAY' ) {
        $exit = system @$cmd;
    }
    else {
        $exit = system $cmd;
    }
    if ( $exit == -1 ) {
        my $name = ref $cmd eq 'ARRAY' ? $cmd->[0] : $cmd;
        die "Error starting command %s: $!\n", $name;
    }
    elsif ( $exit & 127 ) {
        die sprintf "Command died with signal %d\n", ( $exit & 127 );
    }
    return $exit;
}

1;

__END__