| … | |
… | |
| 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 | |
| … | |
… | |
| 565 | } |
565 | } |
| 566 | |
566 | |
| 567 | $node->monitor ($port, $cb); |
567 | $node->monitor ($port, $cb); |
| 568 | |
568 | |
| 569 | defined wantarray |
569 | defined wantarray |
| 570 | and AnyEvent::Util::guard { $node->unmonitor ($port, $cb) } |
570 | and ($cb += 0, AnyEvent::Util::guard { $node->unmonitor ($port, $cb) }) |
| 571 | } |
571 | } |
| 572 | |
572 | |
| 573 | =item $guard = mon_guard $port, $ref, $ref... |
573 | =item $guard = mon_guard $port, $ref, $ref... |
| 574 | |
574 | |
| 575 | Monitors the given C<$port> and keeps the passed references. When the port |
575 | Monitors the given C<$port> and keeps the passed references. When the port |
