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

#!/opt/bin/perl

use AnyEvent;
use AnyEvent::MP;

configure nodeid => "eg_sender/%u", seeds => ["*:4040"];

my $guard = db_mon eg_receivers => sub {
   my ($family, $keys) = @_;
   return unless %$family;

   # now there are some receivers, send them a message
   snd $_ => test => time, keys %$family
      for keys %$family;
};

AnyEvent->condvar->recv;

Revision:	1.5
Committed:	Sun Mar 4 19:45:03 2012 UTC (14 years, 6 months ago) by root
Branch:	MAIN
Changes since 1.4:	+9 -9 lines
Log Message:	* empty log message *
#	Content
1	#!/opt/bin/perl
2
3	use AnyEvent;
4	use AnyEvent::MP;
5
6	configure nodeid => "eg_sender/%u", seeds => ["*:4040"];
7
8	my $guard = db_mon eg_receivers => sub {
9	my ($family, $keys) = @_;
10	return unless %$family;
11
12	# now there are some receivers, send them a message
13	snd $_ => test => time, keys %$family
14	for keys %$family;
15	};
16
17	AnyEvent->condvar->recv;
18