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

Comparing AnyEvent-MP/MP.pm (file contents):
Revision 1.136 by root, Wed Mar 21 15:22:16 2012 UTC vs.
Revision 1.139 by root, Thu Mar 22 20:07:31 2012 UTC

601 $res 601 $res
602 } 602 }
603 } 603 }
604} 604}
605 605
606=item $guard = mon $port, $rcvport # kill $rcvport when $port dies
607
608=item $guard = mon $port # kill $SELF when $port dies
609
606=item $guard = mon $port, $cb->(@reason) # call $cb when $port dies 610=item $guard = mon $port, $cb->(@reason) # call $cb when $port dies
607
608=item $guard = mon $port, $rcvport # kill $rcvport when $port dies
609
610=item $guard = mon $port # kill $SELF when $port dies
611 611
612=item $guard = mon $port, $rcvport, @msg # send a message when $port dies 612=item $guard = mon $port, $rcvport, @msg # send a message when $port dies
613 613
614Monitor the given port and do something when the port is killed or 614Monitor the given port and do something when the port is killed or
615messages to it were lost, and optionally return a guard that can be used 615messages to it were lost, and optionally return a guard that can be used
616to stop monitoring again. 616to stop monitoring again.
617 617
618The first two forms distinguish between "normal" and "abnormal" kil's:
619
620In the first form (another port given), if the C<$port> is C<kil>'ed with
621a non-empty reason, the other port (C<$rcvport>) will be kil'ed with the
622same reason. That is, on "normal" kil's nothing happens, while under all
623other conditions, the other port is killed with the same reason.
624
625The second form (kill self) is the same as the first form, except that
626C<$rvport> defaults to C<$SELF>.
627
628The remaining forms don't distinguish between "normal" and "abnormal" kil's
629- it's up to the callback or receiver to check whether the C<@reason> is
630empty and act accordingly.
631
618In the first form (callback), the callback is simply called with any 632In the third form (callback), the callback is simply called with any
619number of C<@reason> elements (no @reason means that the port was deleted 633number of C<@reason> elements (empty @reason means that the port was deleted
620"normally"). Note also that I<< the callback B<must> never die >>, so use 634"normally"). Note also that I<< the callback B<must> never die >>, so use
621C<eval> if unsure. 635C<eval> if unsure.
622 636
623In the second form (another port given), the other port (C<$rcvport>)
624will be C<kil>'ed with C<@reason>, if a @reason was specified, i.e. on
625"normal" kils nothing happens, while under all other conditions, the other
626port is killed with the same reason.
627
628The third form (kill self) is the same as the second form, except that
629C<$rvport> defaults to C<$SELF>.
630
631In the last form (message), a message of the form C<@msg, @reason> will be 637In the last form (message), a message of the form C<$rcvport, @msg,
632C<snd>. 638@reason> will be C<snd>.
633 639
634Monitoring-actions are one-shot: once messages are lost (and a monitoring 640Monitoring-actions are one-shot: once messages are lost (and a monitoring
635alert was raised), they are removed and will not trigger again. 641alert was raised), they are removed and will not trigger again, even if it
642turns out that the port is still alive.
636 643
637As a rule of thumb, monitoring requests should always monitor a port from 644As a rule of thumb, monitoring requests should always monitor a remote
638a local port (or callback). The reason is that kill messages might get 645port locally (using a local C<$rcvport> or a callback). The reason is that
639lost, just like any other message. Another less obvious reason is that 646kill messages might get lost, just like any other message. Another less
640even monitoring requests can get lost (for example, when the connection 647obvious reason is that even monitoring requests can get lost (for example,
641to the other node goes down permanently). When monitoring a port locally 648when the connection to the other node goes down permanently). When
642these problems do not exist. 649monitoring a port locally these problems do not exist.
643 650
644C<mon> effectively guarantees that, in the absence of hardware failures, 651C<mon> effectively guarantees that, in the absence of hardware failures,
645after starting the monitor, either all messages sent to the port will 652after starting the monitor, either all messages sent to the port will
646arrive, or the monitoring action will be invoked after possible message 653arrive, or the monitoring action will be invoked after possible message
647loss has been detected. No messages will be lost "in between" (after 654loss has been detected. No messages will be lost "in between" (after
969If you feel the need to monitor or query a single subkey, try giving it 976If you feel the need to monitor or query a single subkey, try giving it
970it's own family. 977it's own family.
971 978
972=over 979=over
973 980
974=item db_set $family => $subkey [=> $value] 981=item $guard = db_set $family => $subkey [=> $value]
975 982
976Sets (or replaces) a key to the database - if C<$value> is omitted, 983Sets (or replaces) a key to the database - if C<$value> is omitted,
977C<undef> is used instead. 984C<undef> is used instead.
978 985
986When called in non-void context, C<db_set> returns a guard that
987automatically calls C<db_del> when it is destroyed.
988
979=item db_del $family => $subkey... 989=item db_del $family => $subkey...
980 990
981Deletes one or more subkeys from the database family. 991Deletes one or more subkeys from the database family.
982 992
983=item $guard = db_reg $family => $subkey [=> $value] 993=item $guard = db_reg $family => $port => $value
984 994
985Sets the key on the database and returns a guard. When the guard is 995=item $guard = db_reg $family => $port
986destroyed, the key is deleted from the database. If C<$value> is missing, 996
987then C<undef> is used. 997=item $guard = db_reg $family
998
999Registers a port in the given family and optionally returns a guard to
1000remove it.
1001
1002This function basically does the same as:
1003
1004 db_set $family => $port => $value
1005
1006Except that the port is monitored and automatically removed from the
1007database family when it is kil'ed.
1008
1009If C<$value> is missing, C<undef> is used. If C<$port> is missing, then
1010C<$SELF> is used.
1011
1012This function is most useful to register a port in some port group (which
1013is just another name for a database family), and have it removed when the
1014port is gone. This works best when the port is a local port.
1015
1016=cut
1017
1018sub db_reg($$;$) {
1019 my $family = shift;
1020 my $port = @_ ? shift : $SELF;
1021
1022 my $clr = sub { db_del $family => $port };
1023 mon $port, $clr;
1024
1025 db_set $family => $port => $_[0];
1026
1027 defined wantarray
1028 and &Guard::guard ($clr)
1029}
988 1030
989=item db_family $family => $cb->(\%familyhash) 1031=item db_family $family => $cb->(\%familyhash)
990 1032
991Queries the named database C<$family> and call the callback with the 1033Queries the named database C<$family> and call the callback with the
992family represented as a hash. You can keep and freely modify the hash. 1034family represented as a hash. You can keep and freely modify the hash.
1217Keeping your messages simple, concentrating on data structures rather than 1259Keeping your messages simple, concentrating on data structures rather than
1218objects, will keep your messages clean, tidy and efficient. 1260objects, will keep your messages clean, tidy and efficient.
1219 1261
1220=back 1262=back
1221 1263
1264=head1 PORTING FROM AnyEvent::MP VERSION 1.X
1265
1266AEMP version 2 has a few major incompatible changes compared to version 1:
1267
1268=over 4
1269
1270=item AnyEvent::MP::Global no longer has group management functions.
1271
1272AnyEvent::MP now comes with a distributed database that is more
1273powerful. Its database families map closely to port groups, but the API
1274has changed (the functions are also now exported by AnyEvent::MP). Here is
1275a rough porting guide:
1276
1277 grp_reg $group, $port # old
1278 db_reg $group, $port # new
1279
1280 $list = grp_get $group # old
1281 db_keys $group, sub { my $list = shift } # new
1282
1283 grp_mon $group, $cb->(\@ports, $add, $del) # old
1284 db_mon $group, $cb->(\%ports, $add, $change, $del) # new
1285
1286C<grp_reg> is a no-brainer (just replace by C<db_reg>), but C<grp_get> is
1287no longer instant, because the local node might not have a copy of the
1288group. You can either modify your code to allow for a callback, or use
1289C<db_mon> to keep an updated copy of the group:
1290
1291 my $local_group_copy;
1292 db_mon $group => sub { $local_group_copy = $_[0] };
1293
1294 # now "keys %$local_group_copy" always returns the most up-to-date
1295 # list of ports in the group.
1296
1297C<grp_mon> can be replaced by C<db_mon> with minor changes - C<db_mon>
1298passes a hash as first argument, and an extra C<$chg> argument that can be
1299ignored:
1300
1301 db_mon $group => sub {
1302 my ($ports, $add, $chg, $lde) = @_;
1303 $ports = [keys %$ports];
1304
1305 # now $ports, $add and $del are the same as
1306 # were originally passed by grp_mon.
1307 ...
1308 };
1309
1310=item Nodes not longer connect to all other nodes.
1311
1312In AEMP 1.x, every node automatically loads the L<AnyEvent::MP::Global>
1313module, which in turn would create connections to all other nodes in the
1314network (helped by the seed nodes).
1315
1316In version 2.x, global nodes still connect to all other global nodes, but
1317other nodes don't - now every node either is a global node itself, or
1318attaches itself to another global node.
1319
1320If a node isn't a global node itself, then it attaches itself to one
1321of its seed nodes. If that seed node isn't a global node yet, it will
1322automatically be upgraded to a global node.
1323
1324So in many cases, nothing needs to be changed - one just has to make sure
1325that all seed nodes are meshed together with the other seed nodes (as with
1326AEMP 1.x), and other nodes specify them as seed nodes. This is most easily
1327achieved by specifying the same set of seed nodes for all nodes in the
1328network.
1329
1330Not opening a connection to every other node is usually an advantage,
1331except when you need the lower latency of an already established
1332connection. To ensure a node establishes a connection to another node,
1333you can monitor the node port (C<mon $node, ...>), which will attempt to
1334create the connection (and notify you when the connection fails).
1335
1336=item Listener-less nodes (nodes without binds) are gone.
1337
1338And are not coming back, at least not in their old form. If no C<binds>
1339are specified for a node, AnyEvent::MP assumes a default of C<*:*>.
1340
1341There are vague plans to implement some form of routing domains, which
1342might or might not bring back listener-less nodes, but don't count on it.
1343
1344The fact that most connections are now optional somewhat mitigates this,
1345as a node can be effectively unreachable from the outside without any
1346problems, as long as it isn't a global node and only reaches out to other
1347nodes (as opposed to being contacted from other nodes).
1348
1349=item $AnyEvent::MP::Kernel::WARN has gone.
1350
1351AnyEvent has acquired a logging framework (L<AnyEvent::Log>), and AEMP now
1352uses this, and so should your programs.
1353
1354Every module now documents what kinds of messages it generates, with
1355AnyEvent::MP acting as a catch all.
1356
1357On the positive side, this means that instead of setting
1358C<PERL_ANYEVENT_MP_WARNLEVEL>, you can get away by setting C<AE_VERBOSE> -
1359much less to type.
1360
1361=back
1362
1363=head1 LOGGING
1364
1365AnyEvent::MP does not normally log anything by itself, but sinc eit is the
1366root of the contetx hierarchy for AnyEvent::MP modules, it will receive
1367all log messages by submodules.
1368
1222=head1 SEE ALSO 1369=head1 SEE ALSO
1223 1370
1224L<AnyEvent::MP::Intro> - a gentle introduction. 1371L<AnyEvent::MP::Intro> - a gentle introduction.
1225 1372
1226L<AnyEvent::MP::Kernel> - more, lower-level, stuff. 1373L<AnyEvent::MP::Kernel> - more, lower-level, stuff.

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines