| … | |
… | |
| 666 | my $id = "$RUNIQ." . $ID++; |
666 | my $id = "$RUNIQ." . $ID++; |
| 667 | |
667 | |
| 668 | $_[0] =~ /::/ |
668 | $_[0] =~ /::/ |
| 669 | or Carp::croak "spawn init function must be a fully-qualified name, caught"; |
669 | or Carp::croak "spawn init function must be a fully-qualified name, caught"; |
| 670 | |
670 | |
| 671 | ($NODE{$noderef} || add_node $noderef) |
671 | snd_to_func $noderef, "AnyEvent::MP::_spawn" => $id, @_; |
| 672 | ->send (["", "AnyEvent::MP::_spawn" => $id, @_]); |
|
|
| 673 | |
672 | |
| 674 | "$noderef#$id" |
673 | "$noderef#$id" |
| 675 | } |
674 | } |
| 676 | |
675 | |
| 677 | =back |
676 | =back |
