File Coverage

blib/lib/App/RunCron/Reporter/Command.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	4	6	66.6
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	27	31	87.1

package App::RunCron::Reporter::Command;
use strict;
use warnings;
use JSON::PP;

sub new {
    my ($class, $command) = @_;
    $command = ref $command ? $command : [$command];
    bless $command, $class;
}

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

    open my $pipe, '|-', @$self or die $!;

    my $d = $runner->report_data;
    $d->{is_success} = $d->{is_success} ? $JSON::PP::true : $JSON::PP::false;
    print $pipe encode_json($d);
    close $pipe;
}

1;