AnyEvent example
file: bin/anyevent_example_2.pl @c3e99e4d 8: my $name_ready = AnyEvent->condvar; 9: 10: my $wait_for_input = AnyEvent->io ( 11: fh => \*STDIN, 12: poll => "r", 13: cb => sub { 14: $name = <STDIN>; 15: $name_ready->send; 16: } 17: ); 18: 19: my $w = AnyEvent->timer(after => 1, interval => 1, cb => sub { 20: say "waiting..."; 21: }); 22: 23: $name_ready->recv; 24: undef $wait_for_input; 25: print "your name is $name\n";
I've added an AnyEvent->timer