Lines Matching full:for
12 # A lot of tests to check that reversed for works.
15 for (@array) {
18 is ($r, 'ABC', 'Forwards for array');
20 for (1,2,3) {
23 is ($r, '123', 'Forwards for list');
25 for (map {$_} @array) {
28 is ($r, 'ABC', 'Forwards for array via map');
30 for (map {$_} 1,2,3) {
33 is ($r, '123', 'Forwards for list via map');
35 for (1 .. 3) {
38 is ($r, '123', 'Forwards for list via ..');
40 for ('A' .. 'C') {
43 is ($r, 'ABC', 'Forwards for list via ..');
46 for (reverse @array) {
49 is ($r, 'CBA', 'Reverse for array');
51 for (reverse 1,2,3) {
54 is ($r, '321', 'Reverse for list');
56 for (reverse map {$_} @array) {
59 is ($r, 'CBA', 'Reverse for array via map');
61 for (reverse map {$_} 1,2,3) {
64 is ($r, '321', 'Reverse for list via map');
66 for (reverse 1 .. 3) {
69 is ($r, '321', 'Reverse for list via ..');
71 for (reverse 'A' .. 'C') {
74 is ($r, 'CBA', 'Reverse for list via ..');
77 for my $i (@array) {
80 is ($r, 'ABC', 'Forwards for array with var');
82 for my $i (1,2,3) {
85 is ($r, '123', 'Forwards for list with var');
87 for my $i (map {$_} @array) {
90 is ($r, 'ABC', 'Forwards for array via map with var');
92 for my $i (map {$_} 1,2,3) {
95 is ($r, '123', 'Forwards for list via map with var');
97 for my $i (1 .. 3) {
100 is ($r, '123', 'Forwards for list via .. with var');
102 for my $i ('A' .. 'C') {
105 is ($r, 'ABC', 'Forwards for list via .. with var');
108 for my $i (reverse @array) {
111 is ($r, 'CBA', 'Reverse for array with var');
113 for my $i (reverse 1,2,3) {
116 is ($r, '321', 'Reverse for list with var');
118 for my $i (reverse map {$_} @array) {
121 is ($r, 'CBA', 'Reverse for array via map with var');
123 for my $i (reverse map {$_} 1,2,3) {
126 is ($r, '321', 'Reverse for list via map with var');
128 for my $i (reverse 1 .. 3) {
131 is ($r, '321', 'Reverse for list via .. with var');
133 for my $i (reverse 'A' .. 'C') {
136 is ($r, 'CBA', 'Reverse for list via .. with var');
138 # For some reason the generate optree is different when $_ is implicit.
140 for $_ (@array) {
143 is ($r, 'ABC', 'Forwards for array with explicit $_');
145 for $_ (1,2,3) {
148 is ($r, '123', 'Forwards for list with explicit $_');
150 for $_ (map {$_} @array) {
153 is ($r, 'ABC', 'Forwards for array via map with explicit $_');
155 for $_ (map {$_} 1,2,3) {
158 is ($r, '123', 'Forwards for list via map with explicit $_');
160 for $_ (1 .. 3) {
163 is ($r, '123', 'Forwards for list via .. with var with explicit $_');
165 for $_ ('A' .. 'C') {
168 is ($r, 'ABC', 'Forwards for list via .. with var with explicit $_');
171 for $_ (reverse @array) {
174 is ($r, 'CBA', 'Reverse for array with explicit $_');
176 for $_ (reverse 1,2,3) {
179 is ($r, '321', 'Reverse for list with explicit $_');
181 for $_ (reverse map {$_} @array) {
184 is ($r, 'CBA', 'Reverse for array via map with explicit $_');
186 for $_ (reverse map {$_} 1,2,3) {
189 is ($r, '321', 'Reverse for list via map with explicit $_');
191 for $_ (reverse 1 .. 3) {
194 is ($r, '321', 'Reverse for list via .. with var with explicit $_');
196 for $_ (reverse 'A' .. 'C') {
199 is ($r, 'CBA', 'Reverse for list via .. with var with explicit $_');
204 for our $i (reverse @array) {
207 is ($r, 'CBA', 'Reverse for array with our var');
209 for our $i (reverse 1,2,3) {
212 is ($r, '321', 'Reverse for list with our var');
214 for our $i (reverse map {$_} @array) {
217 is ($r, 'CBA', 'Reverse for array via map with our var');
219 for our $i (reverse map {$_} 1,2,3) {
222 is ($r, '321', 'Reverse for list via map with our var');
224 for our $i (reverse 1 .. 3) {
227 is ($r, '321', 'Reverse for list via .. with our var');
229 for our $i (reverse 'A' .. 'C') {
232 is ($r, 'CBA', 'Reverse for list via .. with our var');
236 for (1, reverse @array) {
239 is ($r, '1CBA', 'Reverse for array with leading value');
241 for ('A', reverse 1,2,3) {
244 is ($r, 'A321', 'Reverse for list with leading value');
246 for (1, reverse map {$_} @array) {
249 is ($r, '1CBA', 'Reverse for array via map with leading value');
251 for ('A', reverse map {$_} 1,2,3) {
254 is ($r, 'A321', 'Reverse for list via map with leading value');
256 for ('A', reverse 1 .. 3) {
259 is ($r, 'A321', 'Reverse for list via .. with leading value');
261 for (1, reverse 'A' .. 'C') {
264 is ($r, '1CBA', 'Reverse for list via .. with leading value');
267 for (reverse (@array), 1) {
270 is ($r, 'CBA1', 'Reverse for array with trailing value');
272 for (reverse (1,2,3), 'A') {
275 is ($r, '321A', 'Reverse for list with trailing value');
277 for (reverse (map {$_} @array), 1) {
280 is ($r, 'CBA1', 'Reverse for array via map with trailing value');
282 for (reverse (map {$_} 1,2,3), 'A') {
285 is ($r, '321A', 'Reverse for list via map with trailing value');
287 for (reverse (1 .. 3), 'A') {
290 is ($r, '321A', 'Reverse for list via .. with trailing value');
292 for (reverse ('A' .. 'C'), 1) {
295 is ($r, 'CBA1', 'Reverse for list via .. with trailing value');
299 for $_ (1, reverse @array) {
302 is ($r, '1CBA', 'Reverse for array with leading value with explicit $_');
304 for $_ ('A', reverse 1,2,3) {
307 is ($r, 'A321', 'Reverse for list with leading value with explicit $_');
309 for $_ (1, reverse map {$_} @array) {
313 'Reverse for array via map with leading value with explicit $_');
315 for $_ ('A', reverse map {$_} 1,2,3) {
318 is ($r, 'A321', 'Reverse for list via map with leading value with explicit $_');
320 for $_ ('A', reverse 1 .. 3) {
323 is ($r, 'A321', 'Reverse for list via .. with leading value with explicit $_');
325 for $_ (1, reverse 'A' .. 'C') {
328 is ($r, '1CBA', 'Reverse for list via .. with leading value with explicit $_');
331 for $_ (reverse (@array), 1) {
334 is ($r, 'CBA1', 'Reverse for array with trailing value with explicit $_');
336 for $_ (reverse (1,2,3), 'A') {
339 is ($r, '321A', 'Reverse for list with trailing value with explicit $_');
341 for $_ (reverse (map {$_} @array), 1) {
345 'Reverse for array via map with trailing value with explicit $_');
347 for $_ (reverse (map {$_} 1,2,3), 'A') {
351 'Reverse for list via map with trailing value with explicit $_');
353 for $_ (reverse (1 .. 3), 'A') {
356 is ($r, '321A', 'Reverse for list via .. with trailing value with explicit $_');
358 for $_ (reverse ('A' .. 'C'), 1) {
361 is ($r, 'CBA1', 'Reverse for list via .. with trailing value with explicit $_');
364 for my $i (1, reverse @array) {
367 is ($r, '1CBA', 'Reverse for array with leading value and var');
369 for my $i ('A', reverse 1,2,3) {
372 is ($r, 'A321', 'Reverse for list with leading value and var');
374 for my $i (1, reverse map {$_} @array) {
377 is ($r, '1CBA', 'Reverse for array via map with leading value and var');
379 for my $i ('A', reverse map {$_} 1,2,3) {
382 is ($r, 'A321', 'Reverse for list via map with leading value and var');
384 for my $i ('A', reverse 1 .. 3) {
387 is ($r, 'A321', 'Reverse for list via .. with leading value and var');
389 for my $i (1, reverse 'A' .. 'C') {
392 is ($r, '1CBA', 'Reverse for list via .. with leading value and var');
395 for my $i (reverse (@array), 1) {
398 is ($r, 'CBA1', 'Reverse for array with trailing value and var');
400 for my $i (reverse (1,2,3), 'A') {
403 is ($r, '321A', 'Reverse for list with trailing value and var');
405 for my $i (reverse (map {$_} @array), 1) {
408 is ($r, 'CBA1', 'Reverse for array via map with trailing value and var');
410 for my $i (reverse (map {$_} 1,2,3), 'A') {
413 is ($r, '321A', 'Reverse for list via map with trailing value and var');
415 for my $i (reverse (1 .. 3), 'A') {
418 is ($r, '321A', 'Reverse for list via .. with trailing value and var');
420 for my $i (reverse ('A' .. 'C'), 1) {
423 is ($r, 'CBA1', 'Reverse for list via .. with trailing value and var');
427 for (reverse 1, @array) {
430 is ($r, 'CBA1', 'Reverse for value and array');
432 for (reverse map {$_} 1, @array) {
435 is ($r, 'CBA1', 'Reverse for value and array via map');
437 for (reverse 1 .. 3, @array) {
440 is ($r, 'CBA321', 'Reverse for .. and array');
442 for (reverse 'X' .. 'Z', @array) {
445 is ($r, 'CBAZYX', 'Reverse for .. and array');
447 for (reverse map {$_} 1 .. 3, @array) {
450 is ($r, 'CBA321', 'Reverse for .. and array via map');
452 for (reverse map {$_} 'X' .. 'Z', @array) {
455 is ($r, 'CBAZYX', 'Reverse for .. and array via map');
458 for (reverse (@array, 1)) {
461 is ($r, '1CBA', 'Reverse for array and value');
463 for (reverse (map {$_} @array, 1)) {
466 is ($r, '1CBA', 'Reverse for array and value via map');
469 for $_ (reverse 1, @array) {
472 is ($r, 'CBA1', 'Reverse for value and array with explicit $_');
474 for $_ (reverse map {$_} 1, @array) {
477 is ($r, 'CBA1', 'Reverse for value and array via map with explicit $_');
479 for $_ (reverse 1 .. 3, @array) {
482 is ($r, 'CBA321', 'Reverse for .. and array with explicit $_');
484 for $_ (reverse 'X' .. 'Z', @array) {
487 is ($r, 'CBAZYX', 'Reverse for .. and array with explicit $_');
489 for $_ (reverse map {$_} 1 .. 3, @array) {
492 is ($r, 'CBA321', 'Reverse for .. and array via map with explicit $_');
494 for $_ (reverse map {$_} 'X' .. 'Z', @array) {
497 is ($r, 'CBAZYX', 'Reverse for .. and array via map with explicit $_');
500 for $_ (reverse (@array, 1)) {
503 is ($r, '1CBA', 'Reverse for array and value with explicit $_');
505 for $_ (reverse (map {$_} @array, 1)) {
508 is ($r, '1CBA', 'Reverse for array and value via map with explicit $_');
512 for my $i (reverse 1, @array) {
515 is ($r, 'CBA1', 'Reverse for value and array with var');
517 for my $i (reverse map {$_} 1, @array) {
520 is ($r, 'CBA1', 'Reverse for value and array via map with var');
522 for my $i (reverse 1 .. 3, @array) {
525 is ($r, 'CBA321', 'Reverse for .. and array with var');
527 for my $i (reverse 'X' .. 'Z', @array) {
530 is ($r, 'CBAZYX', 'Reverse for .. and array with var');
532 for my $i (reverse map {$_} 1 .. 3, @array) {
535 is ($r, 'CBA321', 'Reverse for .. and array via map with var');
537 for my $i (reverse map {$_} 'X' .. 'Z', @array) {
540 is ($r, 'CBAZYX', 'Reverse for .. and array via map with var');
543 for my $i (reverse (@array, 1)) {
546 is ($r, '1CBA', 'Reverse for array and value with var');
548 for my $i (reverse (map {$_} @array, 1)) {
551 is ($r, '1CBA', 'Reverse for array and value via map with var');
583 for $x ($y) {
589 for my $x (my $y) {
596 @_ = (1,2,3,scalar do{for(@_){}} + 1, 4, 5, 6);
598 '[perl #124004] scalar for(@empty_array) stack bug';
604 for my $y (1,2) {
618 for $foo (1,2) {}
629 for $foo (1..2) {}
641 for $foo (0..1) {
649 for $foo ('0'..'1') {
657 for $foo (0, 1) {
666 for $foo (@a) {
680 push @b, $_ for (reverse @a);
684 push @b, $_ for (reverse 'bar');
690 for my $i (@numbers) {
693 is("@numbers", '1 2 3', 'for iterators are aliases');
697 for my $i (@numbers, @letters) {
704 for my $i (@letters, undef, @numbers) {
716 for my $i (@numbers[0, 1, 0]) {
727 for CORE::my $var (@opinion) {
730 is("@observation", "@opinion", 'for CORE::my $oh_my_oh_my ...');
733 for CORE::our $var (@opinion) {
736 is("@observation", "@opinion", 'for CORE::our $var ...');
745 for my $token (qw(my our)) {
746 my $code = "for $token Dog \$spot ('Woof') { } 42";
752 for my $token (qw(CORE::my CORE::our CORE::state state)) {
753 my $code = "for $token Dog \$spot ('Woof') { } 42 ";
767 for ${*$f} (5,11,33) {