2 # NAME goto into foreach
3 no warnings 'deprecated';
7 Can't "goto" into the middle of a foreach loop at - line 3.
10 no warnings 'deprecated';
14 given is experimental at - line 3.
15 Can't "goto" into a "given" block at - line 3.
17 # NAME goto from given topic expression
18 no warnings 'deprecated';
19 CORE::given(goto f){f:}
21 given is experimental at - line 2.
22 Can't "goto" into a "given" block at - line 2.
24 # NAME goto into expression
25 no warnings 'deprecated';
26 eval { goto a; 1 + do { a: } }; warn $@;
27 eval { goto b; meth { b: } }; warn $@;
28 eval { goto c; map { c: } () }; warn $@;
29 eval { goto d; f(do { d: }) }; die $@;
31 Can't "goto" into a binary or list expression at - line 2.
32 Can't "goto" into a binary or list expression at - line 3.
33 Can't "goto" into a binary or list expression at - line 4.
34 Can't "goto" into a binary or list expression at - line 5.
36 # NAME dump with computed label
37 no warnings 'deprecated';
41 Can't find label foo at - line 3.
43 # NAME when outside given
44 use 5.01; no warnings 'experimental::smartmatch';
47 Can't "when" outside a topicalizer at - line 2.
49 # NAME default outside given
53 Can't "default" outside a topicalizer at - line 2.
55 # NAME croak with read only $@
56 eval '"a" =~ /${*@=\_})/';
58 # this would previously recurse infinitely in the eval
60 Unmatched ) in regex; marked by <-- HERE in m/_) <-- HERE / at (eval 1) line 1.
61 ...propagated at - line 2.