File Coverage

blib/lib/GitHub/WebHook/Run.pm

Criterion	Covered	Total	%
statement	33	39	84.6
branch	6	14	42.8
condition	2	2	100.0
subroutine	9	10	90.0
pod	0	3	0.0
total	50	68	73.5

package GitHub::WebHook::Run;
use strict;
use warnings;
use v5.10;

use IPC::Run3;
use Scalar::Util qw(reftype);
use Carp;

our $VERSION = '0.11';

sub new {
    my ($class, %config) = @_;

    my $cmd = $config{cmd};
    if ( (reftype $cmd || '') !~ /^(CODE|ARRAY)$/ ) {
        croak 'expecting cmd as ARRAY or CODE referenc';
    }

    bless {
        cmd   => reftype $cmd eq 'ARRAY' ? sub { $config{cmd} } : $cmd,
        chdir => $config{chdir},
    }, $class;
}

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

    if (ref $cmd) {
        return if !@$cmd;
        $logger->{info}->('$ '.join ' ', @$cmd);
    } elsif (!ref $cmd) {
        return if $cmd eq '';
        $logger->{info}->("$ $cmd");
    }

    run3 $cmd, undef, $logger->{debug}, $logger->{warn};
}

sub call {
    my $self   = shift;
    my $logger = $_[3];

    if (defined $self->{chdir}) {
        my $dir = $self->{chdir};
        $logger->{info}->('$ chdir '.$dir);
        chdir $dir;
    }

    $self->run( $self->{cmd}->(@_), $logger );
    1;
}

1;
__END__