… | … | ||
---|---|---|---|
400 | 400 | ||
401 | snd $_, message => $msg | 401 | snd $_, message => $msg |
402 | for keys %client_ports; | 402 | for keys %client_ports; |
403 | 403 | ||
404 | 0 | 404 | 0 |
405 | }); | 405 | }; |
406 | 406 | ||
407 | AnyEvent->condvar->recv; | 407 | AnyEvent->condvar->recv; |
408 | 408 | ||
409 | That is all. Looks much simpler than the client, doesn't it? | 409 | That is all. Looks much simpler than the client, doesn't it? |
410 | 410 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |