| 1 | #!/usr/bin/perl | 1 | #!/usr/bin/perl |
|---|---|---|---|
| 2 | 2 | ||
| 3 | use Coro; | 3 | use Coro; |
| 4 | use Coro::Event; | ||
| 5 | use Coro::Util; | 4 | use Coro::Util; |
| 5 | use Coro::AnyEvent; | ||
| 6 | 6 | ||
| 7 | use Socket; | 7 | use Socket; |
| 8 | 8 | ||
| 9 | # do some asynchronous hostname resolution | 9 | # do some asynchronous hostname resolution |
| 10 | |||
| 11 | async { loop }; # run the Event loop as a separate coroutine | ||
| 12 | 10 | ||
| 13 | my @pid; | 11 | my @pid; |
| 14 | 12 | ||
| 15 | for my $x (1..255) { | 13 | for my $x (1..255) { |
| 16 | push @pid, async { | 14 | push @pid, async { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |