File Coverage

blib/lib/Shell/Carapace/Shell.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	35	36	97.2

package Shell::Carapace::Shell;
use Moo;

use String::ShellQuote;
use Carp;

has callback    => (is => 'rw', required => 1);
has ipc         => (is => 'rw', lazy => 1, builder => 1);

sub _build_ipc {
    my $self = shift;
    require IPC::Open3::Simple;
    return  IPC::Open3::Simple->new(
        out => sub { $self->callback->('local-output', $_[0], 'localhost') },
        err => sub { $self->callback->('local-output', $_[0], 'localhost') },
    );
}

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

    $self->callback->('command', $self->_stringify(@cmd), 'localhost');

    $self->ipc->run(@cmd);

    if ($? != 0) {
        $self->callback->("error", $self->_stringify(@cmd), 'localhost');
        croak "cmd failed";
    }
};

sub _stringify {
    my ($self, @cmd) = @_;
    return $cmd[0] if @cmd == 1;
    return join(" ", shell_quote @cmd);
}

1;