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 |