… | |
… | |
264 | |
264 | |
265 | my $name_ready = AnyEvent->condvar; |
265 | my $name_ready = AnyEvent->condvar; |
266 | |
266 | |
267 | my $wait_for_input = AnyEvent->io ( |
267 | my $wait_for_input = AnyEvent->io ( |
268 | fh => \*STDIN, poll => "r", |
268 | fh => \*STDIN, poll => "r", |
269 | cb => sub { $name_ready->send (scalar = <STDIN>) } |
269 | cb => sub { $name_ready->send (scalar <STDIN>) } |
270 | ); |
270 | ); |
271 | |
271 | |
272 | # do something else here |
272 | # do something else here |
273 | |
273 | |
274 | # now wait and fetch the name |
274 | # now wait and fetch the name |