# SYNOPSIS use App::Monitor::Simple qw/run/; my $ret = run( { command => 'ping -c 1 blahhhhhhhhhhhhhhhh.jp', # required interval => 10, retry => 5, quiet => 1, } ); # DESCRIPTION This module provides a simple monitoring. # METHODS ## run my $status = App::Monitor::Simple::run(\%arg); This method runs the monitoring. Valid arguments are: command - Specify the monitoring commands. interval - Number of interval seconds. (default: 5) retry - Number of retry count. (default: 0) quiet - if true, suppress stdout / stderror messages. (dafailt: 0) Return zero if the command succeeds, it returns a non-zero if a failure. If the retry is specified, the number of times repeat the command. # AUTHOR toritori0318 toritori0318@gmail.com # COPYRIGHT AND LICENSE Copyright (C) 2012 by toritori0318 This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.0 or, at your option, any later version of Perl 5 you may have available.