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

Comparing AnyEvent-MP/MP/Kernel.pm (file contents):
Revision 1.9 by root, Fri Aug 14 03:27:59 2009 UTC vs.
Revision 1.10 by root, Fri Aug 14 14:01:05 2009 UTC

… …
34 34
35use base "Exporter"; 35use base "Exporter";
36 36
37our $VERSION = '0.6'; 37our $VERSION = '0.6';
38our @EXPORT = qw( 38our @EXPORT = qw(
39 %NODE %PORT %PORT_DATA %REG $UNIQ $RUNIQ $ID add_node load_func 39 %NODE %PORT %PORT_DATA $UNIQ $RUNIQ $ID add_node load_func
40 40
41 NODE $NODE node_of snd kil _any_ 41 NODE $NODE node_of snd kil
42 resolve_node initialise_node 42 resolve_node initialise_node
43); 43);
44 44
45our $DEFAULT_PORT = "4040"; 45our $DEFAULT_PORT = "4040";
46 46
… …
161sub node_of($) { 161sub node_of($) {
162 my ($noderef, undef) = split /#/, $_[0], 2; 162 my ($noderef, undef) = split /#/, $_[0], 2;
163 163
164 $noderef 164 $noderef
165} 165}
166
167sub _ANY_() { 1 }
168sub _any_() { \&_ANY_ }
169 166
170sub TRACE() { 0 } 167sub TRACE() { 0 }
171 168
172sub _inject { 169sub _inject {
173 warn "RCV $SRCNODE->{noderef} -> @_\n" if TRACE;#d# 170 warn "RCV $SRCNODE->{noderef} -> @_\n" if TRACE;#d#

Diff Legend

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