The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

App::Monitor::Simple - Simple monitoring tool.

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 <lt>toritori0318@gmail.com<gt>

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.