File Coverage

blib/lib/GitHub/WebHook/Run.pm

Criterion	Covered	Total	%
statement	31	35	88.5
branch	5	8	62.5
condition	2	2	100.0
subroutine	8	9	88.8
pod	0	2	0.0
total	46	56	82.1

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

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

our $VERSION = '0.10';

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 call {
    my $self   = shift;
    my $logger = $_[3];

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

    my $cmd = $self->{cmd}->(@_);
    if (@$cmd) {
        $logger->info('$ '.join ' ', @$cmd);
        run3 $cmd, undef, $logger->{info}, $logger->{error};
    }

    1;
}

1;
__END__