Lines Matching refs:last
18 # Loops of type (b) don't allow for next/last/redo style
26 # All these tests rely on "last LABEL"
52 last TEST1;
57 last TEST1;
61 last TEST1;
77 last TEST2;
82 last TEST2;
103 last TEST3;
108 last TEST3;
126 last TEST4;
130 last;
131 last TEST4;
135 last TEST4;
139 cmp_ok($ok,'==',1,'no label on while() last');
150 last TEST5;
155 last TEST5;
159 last TEST5;
175 last TEST6;
180 last TEST6;
201 last TEST7;
206 last TEST7;
224 last TEST8;
228 last;
229 last TEST8;
233 last TEST8;
237 cmp_ok($ok,'==',1,'no label on until() last');
247 last TEST9;
252 last TEST9;
256 last TEST9;
271 last TEST10;
276 last TEST10;
296 last TEST11;
301 last TEST11;
318 last TEST12;
322 last;
323 last TEST12;
327 last TEST12;
331 cmp_ok($ok,'==',1,'no label on for(@array) last');
340 last TEST13;
346 last TEST13;
359 last TEST14;
363 last TEST14;
379 last TEST15;
384 last TEST15;
394 for(my $first_time = 1; 1; last TEST16) {
397 last TEST16;
401 last;
402 last TEST16;
406 cmp_ok($ok,'==',1,'no label on for(;;) last');
416 last TEST17;
422 last TEST17;
426 last TEST17;
437 last TEST18;
441 last TEST18;
451 last;
452 last TEST19;
456 last TEST19;
460 cmp_ok($ok,'==',1,'no label on bare block last');
473 last TEST20;
478 last TEST20;
482 last TEST20;
498 last TEST21;
503 last TEST21;
524 last TEST22;
529 last TEST22;
547 last TEST23;
551 last LABEL23;
552 last TEST23;
556 last TEST23;
560 cmp_ok($ok,'==',1,'label on while() last');
571 last TEST24;
576 last TEST24;
580 last TEST24;
596 last TEST25;
601 last TEST25;
622 last TEST26;
627 last TEST26;
645 last TEST27;
649 last LABEL27;
650 last TEST27;
654 last TEST8;
658 cmp_ok($ok,'==',1,'label on until() last');
668 last TEST28;
673 last TEST28;
677 last TEST28;
692 last TEST29;
697 last TEST29;
717 last TEST30;
722 last TEST30;
739 last TEST31;
743 last LABEL31;
744 last TEST31;
748 last TEST31;
752 cmp_ok($ok,'==',1,'label on for(@array) last');
761 last TEST32;
767 last TEST32;
780 last TEST33;
784 last TEST33;
800 last TEST34;
805 last TEST34;
815 LABEL35: for(my $first_time = 1; 1; last TEST16) {
818 last TEST35;
822 last LABEL35;
823 last TEST35;
827 cmp_ok($ok,'==',1,'label on for(;;) last');
837 last TEST36;
843 last TEST36;
847 last TEST36;
858 last TEST37;
862 last TEST37;
872 last LABEL38;
873 last TEST38;
877 last TEST38;
881 cmp_ok($ok,'==',1,'label on bare block last');
895 last TEST39;
900 last TEST39;
907 sub test_last_label { last TEST40 }
916 sub test_last { last }
954 last;
961 last;
967 last;
1003 last CATCH;
1077 eval { last $label };
1078 fail("last with non-constant label");
1079 last last_113684;
1081 pass("last with non-constant label");
1100 pass("redo with non-constant label"); last redo_113684
1113 push @a, last;
1116 is @a, 0, 'push @a, last; does not push';
1119 is do{{&{sub{"Just another Perl hacker,\n"}},last}}, undef,
1120 'last returns nothing';