| … | |
… | |
| 234 | snd $_, reg1 => $group, $port |
234 | snd $_, reg1 => $group, $port |
| 235 | for values %port; |
235 | for values %port; |
| 236 | |
236 | |
| 237 | _change $group, [$port], []; |
237 | _change $group, [$port], []; |
| 238 | |
238 | |
| 239 | wantarray && AnyEvent::Util::guard { unregister $port, $group } |
239 | defined wantarray && AnyEvent::Util::guard { unregister $port, $group } |
| 240 | } |
240 | } |
| 241 | |
241 | |
| 242 | =item $ports = grp_get $group |
242 | =item $ports = grp_get $group |
| 243 | |
243 | |
| 244 | Returns all the ports currently registered to the given group (as |
244 | Returns all the ports currently registered to the given group (as |
