AnyEvent-FastPing/t/01_ping.t

print "1..4\n";

use strict;
use Net::FPing;

use AnyEvent;

my $done = AnyEvent->condvar;

print "ok 1\n";

Net::FPing::icmp_ping
   [[v127.0.0.1, v127.0.0.255], [v127.0.1.1, v127.0.1.5, 0.05]], 0, 0,
   sub { print "ok 3\n"; $done->broadcast };

print "ok 2\n";

$done->wait;

print "ok 4\n";
Revision:	1.1
Committed:	Fri May 4 12:50:44 2007 UTC (17 years, 1 month ago) by root
Content type:	application/x-troff
Branch:	MAIN
Log Message:	* empty log message *
#	Content
1	print "1..4\n";
2
3	use strict;
4	use Net::FPing;
5
6	use AnyEvent;
7
8	my $done = AnyEvent->condvar;
9
10	print "ok 1\n";
11
12	Net::FPing::icmp_ping
13	[[v127.0.0.1, v127.0.0.255], [v127.0.1.1, v127.0.1.5, 0.05]], 0, 0,
14	sub { print "ok 3\n"; $done->broadcast };
15
16	print "ok 2\n";
17
18	$done->wait;
19
20	print "ok 4\n";