How to make a Perl 6 script exit on Ctrl+D input?

Question

loop {
  my $word = prompt '> ' ;
  say $word;
}

What's the right way to make it exit if/when instead of printing a word I press Ctrl+D?

Answer 1

I'm less familiar with Perl 6 than with Perl 5, but the Perl 5 method seems to work:

loop {
  my $word = prompt '> ' ; 
  last if not defined $word;
  say $word;
}

This might be more idiomatic:

while (defined my $word = prompt '> ') {
    say $word;
}

(Without the defined operator, the loop will terminate on an empty input.)