| … | |
… | |
| 148 | our $VERSION = $AnyEvent::MP::Kernel::VERSION; |
148 | our $VERSION = $AnyEvent::MP::Kernel::VERSION; |
| 149 | |
149 | |
| 150 | our @EXPORT = qw( |
150 | our @EXPORT = qw( |
| 151 | NODE $NODE *SELF node_of after |
151 | NODE $NODE *SELF node_of after |
| 152 | configure |
152 | configure |
| 153 | snd rcv mon mon_guard kil reg psub spawn cal |
153 | snd rcv mon mon_guard kil psub spawn cal |
| 154 | port |
154 | port |
| 155 | ); |
155 | ); |
| 156 | |
156 | |
| 157 | our $SELF; |
157 | our $SELF; |
| 158 | |
158 | |
| … | |
… | |
| 563 | $cb = sub { kil $port, @_ if @_ }; |
563 | $cb = sub { kil $port, @_ if @_ }; |
| 564 | } |
564 | } |
| 565 | } |
565 | } |
| 566 | |
566 | |
| 567 | $node->monitor ($port, $cb); |
567 | $node->monitor ($port, $cb); |
|
|
568 | |
|
|
569 | $cb += 0; |
| 568 | |
570 | |
| 569 | defined wantarray |
571 | defined wantarray |
| 570 | and AnyEvent::Util::guard { $node->unmonitor ($port, $cb) } |
572 | and AnyEvent::Util::guard { $node->unmonitor ($port, $cb) } |
| 571 | } |
573 | } |
| 572 | |
574 | |
