… | … | ||
---|---|---|---|
4 | # one process produces items, send s a signal. | 4 | # one process produces items, send s a signal. |
5 | # another process waits for that signal and | 5 | # another process waits for that signal and |
6 | # consumed the item. | 6 | # consumed the item. |
7 | 7 | ||
8 | use Coro; | 8 | use Coro; |
9 | use Coro::Process; | ||
10 | use Coro::Semaphore; | 9 | use Coro::Semaphore; |
11 | 10 | ||
12 | my $produced = new Coro::Semaphore 0; | 11 | my $produced = new Coro::Semaphore 0; |
13 | my $finished = new Coro::Semaphore 0; | 12 | my $finished = new Coro::Semaphore 0; |
14 | 13 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |