File Coverage

blib/lib/App/Monitor/Simple.pm

Criterion	Covered	Total	%
statement	34	36	94.4
branch	6	8	75.0
condition	11	12	91.6
subroutine	7	7	100.0
pod	1	2	50.0
total	59	65	90.7

package App::Monitor::Simple;

use strict;
use warnings;
our $VERSION = '0.01';

use base 'Exporter';
our @EXPORT_OK = qw/run/;

use IO::CaptureOutput qw/capture/;

sub run {
    my ($args) = @_;

    #
    my $command  = delete $args->{command};
    my $retry    = delete $args->{retry}    || 0;
    my $interval = delete $args->{interval} || 5;
    my $quiet    = delete $args->{quiet}    || 0;

    my $ret = -1;
    my $count = 0;
    while(1) {
        $count++;
        $ret = rsystem($command, $quiet);
        if ($ret == 0 || $retry < $count) {
            last;
        }
        sleep $interval;
    }

    if($count == 1 && $ret == 0) {
        # normal
        return 0;
    } elsif($count < $retry) {
        # warnings
        #  Now thinking...
        return 0;
    } else {
        # failure
        return -1;
    }
}

sub rsystem {
    my ($command, $quiet) = @_;
    if($quiet) {
        my ($status, $stdout, $stderr);
        capture sub { $status = system($command) } => \$stdout, \$stderr;
        return $status;
    } else {
        return system($command);
    }
}

1;
__END__