/ 
MooX-Ipc-Cmd-1.1.0
River stage zero No dependents
/ MooX::Ipc::Cmd

NAME

MooX::Ipc::Cmd - Moo role for issuing commands, with debug support, and signal handling

VERSION

version 1.1.0

SYNOPSIS

This role provides the ability to capture system calls, and to execute system calls.

Features

  • debug switch

  • Prints output in realtime, in debug mode

  • Handles signals, and kills via signal if configured too.

  • Uses Log::Any for logging. If in debug mode, will log output of commands, execution line

  • Command line option

package Moo_Package;
use Moo;
use MooX::Options; # required before with statement
with qw(MooX::Ipc::Cmd);

has '+_cmd_kill' => (default=>1); # override default
sub run {
    my $self=shift
    $self->_system(['cmd']);
    my @result=$self->_capture(['results']);
}
1;

package main
use Log::Any::Adapter('Stdout');  #setup Log::Any::Adapter;
my $app=Moo_Package->new_with_options(debug=>0,_cmd_kill=>0); #command line processing
my $app=Moo_Package->new(debug=>0,_cmd_kill=>0); #no command line processing
1;

ATTRIBUTES

_cmd_kill

If set to 1 will send the propgate signal when cmd exits due to signal.

Reader: _cmd_kill

Default: 1

mock

Mocks the cmd, does not run

Reader: mock

Default: 0

Command line option, via MooX::Options

METHODS

_system(\@cmd', /%opts);

Runs a command like system call, with the output silently dropped, unless debug is on

Params:
$cmd : arrayref of the command to send to the shell
%opts
valid_exit => [0] - exits to not throw exception, defaults to 0
Returns:

exit code

Exception

Throws an error when case dies, will also log error using log::any category _cmd

_capture(\@cmd',\%opts); Runs a command like qx call. Will display cmd executed

AUTHOR

Eddie Ash <eddie+cpan@ashfamily.net>

COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Edward Ash.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.