| … | |
… | |
| 6 | |
6 | |
| 7 | $test = 1; |
7 | $test = 1; |
| 8 | |
8 | |
| 9 | sub a1 : Coro { |
9 | sub a1 : Coro { |
| 10 | my $cont = csub { |
10 | my $cont = csub { |
| 11 | { local $_; yield }; |
11 | yield; |
| 12 | result $_*2; |
12 | result $_*2; |
| 13 | { local $_; yield }; |
13 | yield; |
| 14 | result $_*3; |
14 | result $_*3; |
| 15 | }; |
15 | }; |
| 16 | my @arr = map &$cont, 1,2,3,4,5,6; |
16 | my @arr = map &$cont, 1,2,3,4,5,6; |
| 17 | for(2,6,6,12,10,18) { |
17 | for(2,6,6,12,10,18) { |
| 18 | print (((shift @arr == $_) ? "ok " : "not ok "), $test++, "\n"); |
18 | print (((shift @arr == $_) ? "ok " : "not ok "), $test++, "\n"); |
| … | |
… | |
| 21 | yield while 1; |
21 | yield while 1; |
| 22 | } |
22 | } |
| 23 | |
23 | |
| 24 | sub a2 : Coro { |
24 | sub a2 : Coro { |
| 25 | my $cont = csub { |
25 | my $cont = csub { |
| 26 | { local $_; yield }; |
26 | yield; |
| 27 | result $_*20; |
27 | result $_*20; |
| 28 | { local $_; yield }; |
28 | yield; |
| 29 | result $_*30; |
29 | result $_*30; |
| 30 | }; |
30 | }; |
| 31 | my @arr = map &$cont, 1,2,3,4,5,6; |
31 | my @arr = map &$cont, 1,2,3,4,5,6; |
| 32 | for(20,60,60,120,100,180) { |
32 | for(20,60,60,120,100,180) { |
| 33 | print (((shift @arr == $_) ? "ok " : "not ok "), $test++, "\n"); |
33 | print (((shift @arr == $_) ? "ok " : "not ok "), $test++, "\n"); |
