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