Perl6: ¿Cómo podría hacer que todas las advertencias sean fatales?
¿Cómo podría hacer que todas las advertencias en Perl6 sean fatales, de modo que el script muera tan pronto como aparezca una advertencia en la pantalla?
CONTROL { when CX::Warn { note $_; exit 1 } } muere más a menudo.
Este script muere conCONTROL { when CX::Warn { note $_; exit 1 } } pero no conuse 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;