Lines Matching refs:last
159 my $a=4; my $b=5; "a" =~ /(?{last})a/; print $a,$b
161 q{Can't "last" outside a loop block at - line 1.},
162 { stderr => 1 }, '(?{last})';
166 my $a=4; my $b=5; "a" =~ /(?{for (1..4) {last}})a/; print $a,$b
169 { stderr => 1 }, '(?{for {last}})';
173 for (1) { my $a=4; my $b=5; "a" =~ /(?{last})a/ }; print $a,$b
175 q{Can't "last" outside a loop block at - line 1.},
176 { stderr => 1 }, 'for (1) {(?{last})}';
180 my $a=4; my $b=5; eval { "a" =~ /(?{last})a/ }; print $a,$b
183 { stderr => 1 }, 'eval {(?{last})}';