… | |
… | |
27 | This module (-family) implements a simple message passing framework. |
27 | This module (-family) implements a simple message passing framework. |
28 | |
28 | |
29 | Despite its simplicity, you can securely message other processes running |
29 | Despite its simplicity, you can securely message other processes running |
30 | on the same or other hosts. |
30 | on the same or other hosts. |
31 | |
31 | |
|
|
32 | At the moment, this module family is severly brokena nd underdocumented, |
|
|
33 | so do not use. This was uploaded mainly to resreve the CPAN namespace - |
|
|
34 | stay tuned! |
|
|
35 | |
32 | =head1 CONCEPTS |
36 | =head1 CONCEPTS |
33 | |
37 | |
34 | =over 4 |
38 | =over 4 |
35 | |
39 | |
36 | =item port |
40 | =item port |
… | |
… | |
81 | |
85 | |
82 | use AE (); |
86 | use AE (); |
83 | |
87 | |
84 | use base "Exporter"; |
88 | use base "Exporter"; |
85 | |
89 | |
86 | our $VERSION = '0.0'; |
90 | our $VERSION = '0.01'; |
87 | our @EXPORT = qw(NODE $NODE $PORT snd rcv _any_); |
91 | our @EXPORT = qw(NODE $NODE $PORT snd rcv _any_); |
88 | |
92 | |
89 | our $DEFAULT_SECRET; |
93 | our $DEFAULT_SECRET; |
90 | our $DEFAULT_PORT = "4040"; |
94 | our $DEFAULT_PORT = "4040"; |
91 | |
95 | |
… | |
… | |
111 | C<become_slave>, after which all local port identifiers become invalid. |
115 | C<become_slave>, after which all local port identifiers become invalid. |
112 | |
116 | |
113 | =cut |
117 | =cut |
114 | |
118 | |
115 | our $UNIQ = sprintf "%x.%x", $$, time; # per-process/node unique cookie |
119 | our $UNIQ = sprintf "%x.%x", $$, time; # per-process/node unique cookie |
|
|
120 | our $ID = "a0"; |
116 | our $PUBLIC = 0; |
121 | our $PUBLIC = 0; |
117 | our $NODE; |
122 | our $NODE; |
118 | our $PORT; |
123 | our $PORT; |
119 | |
124 | |
120 | our %NODE; # node id to transport mapping, or "undef", for local node |
125 | our %NODE; # node id to transport mapping, or "undef", for local node |