| … | |
… | |
| 30 | rcv $port, pong => sub { warn "pong received\n" }; |
30 | rcv $port, pong => sub { warn "pong received\n" }; |
| 31 | |
31 | |
| 32 | # create a port on another node |
32 | # create a port on another node |
| 33 | my $port = spawn $node, $initfunc, @initdata; |
33 | my $port = spawn $node, $initfunc, @initdata; |
| 34 | |
34 | |
| 35 | # destroy a prot again |
35 | # destroy a port again |
| 36 | kil $port; # "normal" kill |
36 | kil $port; # "normal" kill |
| 37 | kil $port, my_error => "everything is broken"; # error kill |
37 | kil $port, my_error => "everything is broken"; # error kill |
| 38 | |
38 | |
| 39 | # monitoring |
39 | # monitoring |
| 40 | mon $localport, $cb->(@msg) # callback is invoked on death |
40 | mon $localport, $cb->(@msg) # callback is invoked on death |
| … | |
… | |
| 155 | |
155 | |
| 156 | use AE (); |
156 | use AE (); |
| 157 | |
157 | |
| 158 | use base "Exporter"; |
158 | use base "Exporter"; |
| 159 | |
159 | |
| 160 | our $VERSION = 1.28; |
160 | our $VERSION = 1.29; |
| 161 | |
161 | |
| 162 | our @EXPORT = qw( |
162 | our @EXPORT = qw( |
| 163 | NODE $NODE *SELF node_of after |
163 | NODE $NODE *SELF node_of after |
| 164 | configure |
164 | configure |
| 165 | snd rcv mon mon_guard kil psub peval spawn cal |
165 | snd rcv mon mon_guard kil psub peval spawn cal |
