Perl6: Как я могу сделать все предупреждения фатальными?

Как я могу сделать все предупреждения в Perl6 фатальными, чтобы сценарий умер, как только на экране появилось предупреждение.

CONTROL { when CX::Warn { note $_; exit 1 } } умирает чаще.

Этот сценарий умирает сCONTROL { when CX::Warn { note $_; exit 1 } } но не сuse fatal:

#!/usr/bin/env perl6
use v6;

my @a = 1 .. 4;
@a[5] = 6;
my @b;

for @a -> $i {
    @b.push( ~$i );
}

say "=====\n" x 3;

Ответы на вопрос(2)

Ваш ответ на вопрос