Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
21 lines (12 sloc) 265 Bytes
use v6;
use Test;
# L<S04/Control Exceptions>
# Test primarily aimed at Niecza
plan 1;
{
sub foo($x = last) { $x }
my $i = 0;
for 1,2,3 { $i++; foo(); }
is $i, 1, 'control operator last can be used in an inferior context';
}
# vim: ft=perl6
Something went wrong with that request. Please try again.