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

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

initialise_node "eg_simple_sender";

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.2
Committed:	Fri Aug 28 21:22:12 2009 UTC (17 years ago) by root
Branch:	MAIN
CVS Tags:	rel-0_9
Changes since 1.1:	+1 -1 lines
Log Message:	* empty log message *
#	Content
1	#!/opt/bin/perl
2	use AnyEvent;
3	use AnyEvent::MP;
4	use AnyEvent::MP::Global;
5
6	initialise_node "eg_simple_sender";
7
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;