ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent-MP/eg/simple_example_receiver
(Generate patch)

Comparing AnyEvent-MP/eg/simple_example_receiver (file contents):
Revision 1.4 by root, Sat Sep 5 21:16:59 2009 UTC vs.
Revision 1.5 by root, Sun Mar 4 19:45:03 2012 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2 2
3use AnyEvent; 3use AnyEvent;
4use AnyEvent::MP; 4use AnyEvent::MP;
5use AnyEvent::MP::Global;
6 5
7configure; 6configure nodeid => "eg_receiver/%u", binds => ["*:4041"];
8 7
9my $port = port; 8my $port = port;
10
11grp_reg eg_receivers => $port; 9db_set eg_receivers => $port;
12 10
13rcv $port, test => sub { 11rcv $port, test => sub {
14 my ($data, $reply_port) = @_; 12 my ($data, $reply_port) = @_;
15 13
16 print "Received data: " . $data . "\n"; 14 print "Received data: " . $data . "\n";
17}; 15};
18 16
19AnyEvent->condvar->recv; 17AnyEvent->condvar->recv;
18

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines