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;