| … | |
… | |
| 286 | # do something else here |
286 | # do something else here |
| 287 | |
287 | |
| 288 | # now wait and fetch the name |
288 | # now wait and fetch the name |
| 289 | my $name = $name_ready->recv; |
289 | my $name = $name_ready->recv; |
| 290 | |
290 | |
| 291 | undef $wait_for_input; # watche rno longer needed |
291 | undef $wait_for_input; # watcher no longer needed |
| 292 | |
292 | |
| 293 | print "your name is $name\n"; |
293 | print "your name is $name\n"; |
| 294 | |
294 | |
| 295 | You can pass any number of arguments to C<send>, and every subsequent |
295 | You can pass any number of arguments to C<send>, and every subsequent |
| 296 | call to C<recv> will return them. |
296 | call to C<recv> will return them. |
