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

#!/opt/bin/perl

use AnyEvent;
use AnyEvent::MP;
use AnyEvent::MP::Global;

configure;

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

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

AnyEvent->condvar->recv;
Revision:	1.4
Committed:	Sat Sep 5 21:16:59 2009 UTC (14 years, 9 months ago) by root
Branch:	MAIN
CVS Tags:	rel-1_23, rel-1_1, rel-1_2, rel-1_28, rel-1_29, rel-1_24, rel-1_26, rel-1_27, rel-1_21, rel-1_22, rel-1_30
Changes since 1.3:	+3 -2 lines
Log Message:	* empty log message *
#	Content
1	#!/opt/bin/perl
2
3	use AnyEvent;
4	use AnyEvent::MP;
5	use AnyEvent::MP::Global;
6
7	configure;
8
9	my $find_timer =
10	AnyEvent->timer (after => 0, interval => 1, cb => sub {
11	my $ports = grp_get "eg_receivers"
12	or return;
13
14	snd $_, test => time
15	for @$ports;
16	});
17
18	AnyEvent->condvar->recv;