| … | |
… | |
| 18 | |
18 | |
| 19 | =cut |
19 | =cut |
| 20 | |
20 | |
| 21 | package AnyEvent::MP::Base; |
21 | package AnyEvent::MP::Base; |
| 22 | |
22 | |
|
|
23 | use common::sense; |
|
|
24 | use Carp (); |
|
|
25 | use MIME::Base64 (); |
|
|
26 | |
|
|
27 | use AE (); |
|
|
28 | |
| 23 | use AnyEvent::MP::Node; |
29 | use AnyEvent::MP::Node; |
| 24 | use AnyEvent::MP::Transport; |
30 | use AnyEvent::MP::Transport; |
| 25 | |
|
|
| 26 | use common::sense; |
|
|
| 27 | |
|
|
| 28 | use Carp (); |
|
|
| 29 | |
|
|
| 30 | use AE (); |
|
|
| 31 | |
31 | |
| 32 | use base "Exporter"; |
32 | use base "Exporter"; |
| 33 | |
33 | |
| 34 | our $VERSION = '0.01'; |
34 | our $VERSION = '0.01'; |
| 35 | our @EXPORT = qw( |
35 | our @EXPORT = qw( |
| … | |
… | |
| 83 | } |
83 | } |
| 84 | |
84 | |
| 85 | $DEFAULT_SECRET |
85 | $DEFAULT_SECRET |
| 86 | } |
86 | } |
| 87 | |
87 | |
|
|
88 | sub gen_uniq { |
|
|
89 | my $uniq = pack "wN", $$, time; |
|
|
90 | $uniq = MIME::Base64::encode_base64 $uniq, ""; |
|
|
91 | $uniq =~ s/=+$//; |
|
|
92 | $uniq |
|
|
93 | } |
|
|
94 | |
| 88 | our $UNIQ = sprintf "%x.%x", $$, time; # per-process/node unique cookie |
95 | our $UNIQ = gen_uniq; # per-process/node unique cookie |
| 89 | our $ID = "a"; |
96 | our $ID = "a"; |
| 90 | our $PUBLIC = 0; |
97 | our $PUBLIC = 0; |
| 91 | our $NODE = $$; |
98 | our $NODE = $$; |
| 92 | our $PORT; |
99 | our $PORT; |
| 93 | |
100 | |
