Egg::Plugin::Net::Ping - Net::Ping for Egg plugin.
use Egg qw/ Net::Ping /;
__PACKAGE__->egg_startup(
...
.....
plugin_net_ping => {
protcol => 'tcp',
timeout => 3,
retry => 1,
wait => 0.5,
},
);
if ( $e->ping('192.168.1.1') ) {
print " Ping was answered. !! ";
} else {
print " There is no answer to Ping. ";
}
It is a plug-in to investigate while arbitrary PC is operating by Net::Ping.
Please set 'plugin_net_ping'.
They are the protocols such as tcp and udp.
Default is 'tcp'.
* I do not think that it operates well perhaps excluding tcp.
Time to wait for answer of ping.
Default is '3'.
Frequency in which ping is done.
Waiting time to doing next retry.
Default is '0.5'.
Own host address.
Ping is sent to TARGET_HOST, and the succeeding frequency is returned.
ARGS_HASH overwrites initialization.
* When retry is set to five times or more, five is compulsorily set.
$e->ping('192.168.1.111', retry => 5 );
Masatoshi Mizuno <lushe@cpan.org>
Copyright (C) 2008 Bee Flag, Corp. <http://egg.bomcity.com/>, All Rights Reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.
