… | |
… | |
34 | |
34 | |
35 | use base "Exporter"; |
35 | use base "Exporter"; |
36 | |
36 | |
37 | our $VERSION = '0.6'; |
37 | our $VERSION = '0.6'; |
38 | our @EXPORT = qw( |
38 | our @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 | |
45 | our $DEFAULT_PORT = "4040"; |
45 | our $DEFAULT_PORT = "4040"; |
46 | |
46 | |
… | |
… | |
161 | sub node_of($) { |
161 | sub 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 | |
|
|
167 | sub _ANY_() { 1 } |
|
|
168 | sub _any_() { \&_ANY_ } |
|
|
169 | |
166 | |
170 | sub TRACE() { 0 } |
167 | sub TRACE() { 0 } |
171 | |
168 | |
172 | sub _inject { |
169 | sub _inject { |
173 | warn "RCV $SRCNODE->{noderef} -> @_\n" if TRACE;#d# |
170 | warn "RCV $SRCNODE->{noderef} -> @_\n" if TRACE;#d# |