Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

33 lines (24 sloc) 0.385 kB
#! nqp
plan(3);
my $runs := 0;
while $runs < 5 {
$runs++;
last if $runs == 3;
}
ok($runs == 3, "last works in while");
$runs := 0;
my $i := 0;
while $runs < 5 {
$runs++;
next if $runs % 2;
$i++;
}
ok($i == 2, "next works in while");
$runs := 0;
$i := 0;
while $i < 5 {
$runs++;
redo if $runs % 2;
$i++;
}
ok($runs == 10, "redo works in while");
Jump to Line
Something went wrong with that request. Please try again.