[ViewVC] Annotation of: cvs/AnyEvent-MP/eg/simple_example_sender

#!/opt/bin/perl
use AnyEvent;
use AnyEvent::MP;
use AnyEvent::MP::Global;

initialise_node;

my $find_timer =
   AnyEvent->timer (after => 0, interval => 1, cb => sub {
      my $ports = AnyEvent::MP::Global::find "eg_receivers"
         or return;

      snd $_, test => time
         for @$ports;
   });

AnyEvent->condvar->recv;
Revision:	1.3
Committed:	Mon Aug 31 13:18:06 2009 UTC (14 years, 9 months ago) by root
Branch:	MAIN
CVS Tags:	rel-0_95, rel-1_0
Changes since 1.2:	+1 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.2	#!/opt/bin/perl
2	elmex	1.1	use AnyEvent;
3			use AnyEvent::MP;
4			use AnyEvent::MP::Global;
5
6	root	1.3	initialise_node;
7	elmex	1.1
8			my $find_timer =
9			AnyEvent->timer (after => 0, interval => 1, cb => sub {
10			my $ports = AnyEvent::MP::Global::find "eg_receivers"
11			or return;
12
13			snd $_, test => time
14			for @$ports;
15			});
16
17			AnyEvent->condvar->recv;