Lines Matching refs:when
22 CORE::when(3) { pass "CORE::given and CORE::when"; continue }
48 when(be_true(my $x = "bar")) {
63 when(2) { $ok = 'two'; }
64 when(3) { $ok = 'three'; }
65 when(4) { $ok = 'four'; }
75 when(2) { $ok = 'two'; }
76 when(3) { $ok = 'three'; }
77 when(4) { $ok = 'four'; }
86 when(3.1) { $ok1 = 'n'; }
87 when(3.0) { $ok1 = 'y'; continue }
88 when("3.0") { $ok2 = 'y'; }
98 when("b") { $ok = 'B'; }
99 when("c") { $ok = 'C'; }
100 when("d") { $ok = 'D'; }
109 when("b") { $ok = 'B'; }
110 when("c") { $ok = 'C'; continue }
111 when("c") { $ok = 'CC'; }
120 given (0) { when(undef) {$ok = 0} }
126 given (0) { when($undef) {$ok = 0} }
132 given (0) { when($undef++) {$ok = 1} }
138 given (undef) { when(0) {$ok = 0} }
145 given ($undef) { when(0) {$ok = 0} }
151 given ("") { when(undef) {$ok = 0} }
157 given ("") { when($undef) {$ok = 0} }
163 given (undef) { when("") {$ok = 0} }
170 given ($undef) { when("") {$ok = 0} }
176 given (undef) { when(undef) {$ok = 1} }
182 given (undef) { when($undef) {$ok = 1} }
188 given ($undef) { when(undef) {$ok = 1} }
194 given ($undef) { when($undef) {$ok = 1} }
203 when(/lo/)
205 when(/no/)
207 when(/^(Hello,|Goodbye cruel) world[!.?]/)
209 when(/^(Hello cruel|Goodbye,) world[!.?]/)
222 when ($_ < 10) { $ok = "ten" }
223 when ($_ < 20) { $ok = "twenty" }
224 when ($_ < 30) { $ok = "thirty" }
225 when ($_ < 40) { $ok = "forty" }
237 when ($_ < 10) { $ok = "ten" }
238 when ($_ < 20) { $ok = "twenty" }
239 when ($_ < 30) { $ok = "thirty" }
240 when ($_ < 40) { $ok = "forty" }
251 when ($_ <= 10) { $ok = "ten" }
252 when ($_ <= 20) { $ok = "twenty" }
253 when ($_ <= 30) { $ok = "thirty" }
254 when ($_ <= 40) { $ok = "forty" }
266 when ($_ <= 10) { $ok = "ten" }
267 when ($_ <= 20) { $ok = "twenty" }
268 when ($_ <= 30) { $ok = "thirty" }
269 when ($_ <= 40) { $ok = "forty" }
281 when ($_ > 40) { $ok = "forty" }
282 when ($_ > 30) { $ok = "thirty" }
283 when ($_ > 20) { $ok = "twenty" }
284 when ($_ > 10) { $ok = "ten" }
295 when ($_ >= 40) { $ok = "forty" }
296 when ($_ >= 30) { $ok = "thirty" }
297 when ($_ >= 20) { $ok = "twenty" }
298 when ($_ >= 10) { $ok = "ten" }
310 when ($_ > 40) { $ok = "forty" }
311 when ($_ > 30) { $ok = "thirty" }
312 when ($_ > 20) { $ok = "twenty" }
313 when ($_ > 10) { $ok = "ten" }
325 when ($_ >= 40) { $ok = "forty" }
326 when ($_ >= 30) { $ok = "thirty" }
327 when ($_ >= 20) { $ok = "twenty" }
328 when ($_ >= 10) { $ok = "ten" }
340 when ($_ lt "10") { $ok = "ten" }
341 when ($_ lt "20") { $ok = "twenty" }
342 when ($_ lt "30") { $ok = "thirty" }
343 when ($_ lt "40") { $ok = "forty" }
354 when ($_ le "10") { $ok = "ten" }
355 when ($_ le "20") { $ok = "twenty" }
356 when ($_ le "30") { $ok = "thirty" }
357 when ($_ le "40") { $ok = "forty" }
368 when ($_ ge "40") { $ok = "forty" }
369 when ($_ ge "30") { $ok = "thirty" }
370 when ($_ ge "20") { $ok = "twenty" }
371 when ($_ ge "10") { $ok = "ten" }
382 when ($_ ge "40") { $ok = "forty" }
383 when ($_ ge "30") { $ok = "thirty" }
384 when ($_ ge "20") { $ok = "twenty" }
385 when ($_ ge "10") { $ok = "ten" }
395 when (2 + 2 == 4) { $ok = 'y'; continue }
396 when (2 + 2 == 5) { $ok = 'n' }
404 when (scalar 24) { $ok = 'n'; continue }
418 when(-d) {$ok_d = 1; continue}
419 when(!-f) {$ok_f = 1; continue}
420 when(-r) {$ok_r = 1; continue}
432 when(notfoo()) {$ok = 1}
440 when(main->notfoo()) {$ok = 1}
449 when($obj->notfoo()) {$ok = 1}
458 when( /(\d+)/ and ( 1 <= $1 and $1 <= 12 ) ) {
468 when(eof(DATA)) {
479 when(exists $foo{bar}) {
489 when(defined $ok) {
499 when((1 == 1) && "bar") {
502 when((1 == 1) && $_ eq "foo") {
513 when ($_ eq "b" .. $_ eq "c") { $n = 1 }
524 when ($_ eq "b" ... $_ eq "c") { $n = 1 }
534 when((1 == $ok) || "foo") {
544 when((1 == $ok || undef) // "foo") {
581 when(undef) {}
582 when(sub{0}->()) {}
583 when(21) {}
584 when("22") {}
585 when(23) {$ok = 1}
586 when(/24/) {$ok = 0}
597 when(undef) {}
598 when(sub{0}->()) {}
599 when(21) {}
600 when("22") {}
601 when($v) {$ok = 1}
602 when(/24/) {$ok = 0}
613 when(undef) {}
614 when(sub{0}->()) {}
615 when("21") {}
616 when("22") {}
617 when($v) {$ok = 1}
618 when(/24/) {$ok = 0}
630 when(sub{0}->()) {}
631 when("21") {}
632 when("22") {}
633 when($v) {$ok = 1}
634 when(undef) {$ok = 0}
644 when ("two") {
650 when (1) {
661 when ("two") {
667 when (1) {
684 when(\&bar) {$matched_bar = 1}
685 when(\&foo) {$matched_foo = 1}
700 when(contains_x($_))
702 when(\&contains_x)
709 when(contains_x($_))
711 when(\&contains_x)
755 when ("other arg") {$matched = 1}
768 when ("other arg") {$matched = 1}
780 when ($obj) {$matched = 1}
796 when ($obj) {$matched = 1}
812 $ok = 1 when undef;
819 $ok += 1 when 7;
820 $ok += 2 when 9.1685;
821 $ok += 4 when $_ > 4;
822 $ok += 8 when $_ < 2.5;
829 $ok = 1, continue when $_ eq "apple";
831 $ok = 0 when "banana";
838 do { $ok = 1; continue } when /pea/;
840 $ok = 0 when /pie/;
853 } when be_true(my $x = "bar");
860 my $x = 2, continue when be_true();
872 when ("b") { last }
882 when ("b") { last LETTER1 }
891 when (/b|d/) { next }
901 when (/b|d/) { next LETTER2 }
914 when (0) { break; }
922 when (0) { $flag = 1; }
932 when (0) { $flag = 1; goto GIVEN3; $flag = 2; }
941 when (0) { $flag = 1; goto GIVEN4; $flag = 2; }
951 when (0) { $flag = 1; goto GIVEN5; $flag = 2; }
952 when (1) { break; }
975 when (0) { $lexical }
976 when (2) { 'void'; 8, 9 }
989 $lexical when 0;
990 8, 9 when 2;
1002 when (0) { 5 }
1015 when (0) { 3 .. 5 }
1016 when (2) { my $fake = 'void'; 8, 9 }
1028 3 .. 5 when 0;
1029 @things when 2;
1041 when (0) { "moo" =~ /(.)/g }
1053 continue when $_ <= 1;
1054 break when 1;
1055 next when 2;
1065 'undef' when undef;
1066 when ([ 1 .. 3 ]) { 1 .. 3 }
1067 when (4) { my $fake; do { 4, 5 } }
1103 when (@list) {
1107 when (@list[0..2]) {
1122 when (%list) {
1126 when (@list{"a".."c"}) {
1164 when (0) { 0 }
1166 when (1) { my $when_lex = 1 }
1167 when (2) { our $when_glob = 2 }
1168 when (3) { local $when_loc = 3 }
1170 when (4) { $given_lex }
1171 when (5) { $given_glob }
1172 when (6) { $given_loc }
1174 when (7) { $ext_lex }
1175 when (8) { $ext_glob }
1176 when (9) { $ext_loc }
1185 when-lexical
1186 when-global
1187 when-local
1208 when (/\d/) {
1242 when
1258 when (0) { Fmurrr->new($destroyed, 0) }
1259 when (1) { my $y = Fmurrr->new($destroyed, 1); break }
1260 when (2) { $x = Fmurrr->new($destroyed, 2); continue }
1261 when (2) { $x }
1279 when (/[a-z]/) {
1315 when (1) {$i += 1 }
1316 when (2) {$i += 10 }
1317 when (3) {$i += 100 }
1324 when ('a') {$i += 1 }
1325 when ('b') {$i += 10 }
1326 when ('c') {$i += 100 }
1333 when (1) {$i += 1 }
1334 when (2) {$i += 10 }
1335 when (3) {$i += 100 }
1343 when (1) {$i += 1 }
1344 when (2) {$i += 10 }
1345 when (3) {$i += 100 }
1353 my @a = (qw(a b c), do { when(/abc/) { qw(x y) } }, qw(d e f));
1356 @a = (qw(a b c), scalar do { when(/abc/) { qw(x y) } }, qw(d e f));
1370 when (index($s, 'a') > -1) { $ok = 1; }
1376 when (rindex($s, 'a') > -1) { $ok = 1; }