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

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

initialise_node "eg_simple_receiver";

my $port = port;

AnyEvent::MP::Global::register $port, "eg_receivers";

rcv $port, test => sub {
   my ($data, $reply_port) = @_;

   print "Received data: " . $data . "\n";
};

AnyEvent->condvar->recv;
Revision:	1.2
Committed:	Fri Aug 28 21:22:12 2009 UTC (14 years, 9 months ago) by root
Branch:	MAIN
CVS Tags:	rel-0_9
Changes since 1.1:	+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			initialise_node "eg_simple_receiver";
7
8			my $port = port;
9
10			AnyEvent::MP::Global::register $port, "eg_receivers";
11
12			rcv $port, test => sub {
13			my ($data, $reply_port) = @_;
14
15			print "Received data: " . $data . "\n";
16			};
17
18			AnyEvent->condvar->recv;