[ViewVC] Diff of: cvs/AnyEvent-MP/MP.pm

Comparing AnyEvent-MP/MP.pm (file contents):
Revision 1.143 by root, Fri Mar 23 17:54:36 2012 UTC vs.
Revision 1.144 by root, Fri Mar 23 21:16:25 2012 UTC

 package AnyEvent::MP;
 use AnyEvent::MP::Config ();
 use AnyEvent::MP::Kernel;
-use AnyEvent::MP::Kernel qw(%NODE %PORT %PORT_DATA $UNIQ $RUNIQ $ID);
+use AnyEvent::MP::Kernel qw(
+   %NODE %PORT %PORT_DATA $UNIQ $RUNIQ $ID
+   add_node load_func
+   NODE $NODE
+   configure
+   node_of port_is_local
+   snd kil
+   db_set db_del
+   db_mon db_family db_keys db_values
+);
 use common::sense;
 use Carp ();
 use base "Exporter";
 our $VERSION = $AnyEvent::MP::Config::VERSION;
 our @EXPORT = qw(
-   NODE $NODE *SELF node_of after
+   NODE $NODE
    configure
+   node_of port_is_local
+   snd kil
+   db_set db_del
+   db_mon db_family db_keys db_values
+   *SELF
-   snd rcv mon mon_guard kil psub peval spawn cal
+   port rcv mon mon_guard psub peval spawn cal
-   port
    db_set db_del db_reg
    db_mon db_family db_keys db_values
+   after
 );
 our $SELF;
 sub _self_die() {
 a call to C<configure>.
 =item $nodeid = node_of $port
 Extracts and returns the node ID from a port ID or a node ID.
+=item $is_local = port_is_local $port
+Returns true iff the port is a local port.
 =item configure $profile, key => value...
 =item configure key => value...
 sub rcv($@) {
    my $port = shift;
    my ($nodeid, $portid) = split /#/, $port, 2;
-   $NODE{$nodeid} == $NODE{""}
+   $nodeid eq $NODE
       or Carp::croak "$port: rcv can only be called on local ports, caught";
    while (@_) {
       if (ref $_[0]) {
          if (my $self = $PORT_DATA{$portid}) {

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