| … | … | ||
|---|---|---|---|
| 14 | async { | 14 | async { |
| 15 | for my $i (0..9) { | 15 | for my $i (0..9) { |
| 16 | print "produced $i\n"; | 16 | print "produced $i\n"; |
| 17 | push @buffer, $i; | 17 | push @buffer, $i; |
| 18 | $produced->up; | 18 | $produced->up; |
| 19 | yield if @buffer > 5; # simulate memory pressure ;) | 19 | cede if @buffer > 5; # simulate memory pressure ;) |
| 20 | } | 20 | } |
| 21 | print "work done\n"; | 21 | print "work done\n"; |
| 22 | $finished->up; | 22 | $finished->up; |
| 23 | }; | 23 | }; |
| 24 | 24 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |