… | … | ||
---|---|---|---|
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 | ||
570 | and AnyEvent::Util::guard { $node->unmonitor ($port, $cb) } | 571 | and AnyEvent::Util::guard { $node->unmonitor ($port, $cb) } |
571 | } | 572 | } |
572 | 573 | ||
573 | =item $guard = mon_guard $port, $ref, $ref... | 574 | =item $guard = mon_guard $port, $ref, $ref... |
574 | 575 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |