RosettaCodeData/Task/Conditional-structures/Perl-6/conditional-structures-2.pl6

given lc prompt("Done? ") {
    when 'yes' { return }
    when 'no'  { next }
    default    { say "Please answer either yes or not." }
}