… | … | ||
---|---|---|---|
6 | 6 | ||
7 | use Coro; | 7 | use Coro; |
8 | use Coro::Event; | 8 | use Coro::Event; |
9 | 9 | ||
10 | sub keyboard : Coro { | 10 | sub keyboard : Coro { |
11 | my $w = Coro::Event->io(fd => *STDIN, poll => 'r'); | 11 | my $w = Coro::Event->io(fd => \*STDIN, poll => 'r'); |
12 | while() { | 12 | while() { |
13 | print "cmd> "; | 13 | print "cmd> "; |
14 | my $ev = $w->next; my $cmd = <STDIN>; | 14 | my $ev = $w->next; my $cmd = <STDIN>; |
15 | unloop unless $cmd ne ""; | 15 | unloop unless $cmd ne ""; |
16 | print "data> "; | 16 | print "data> "; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |