Perl6: Como eu poderia tornar todos os avisos fatais?
Como eu poderia tornar todos os avisos no Perl6 fatais, para que o script apague assim que um aviso aparecer na tela.
CONTROL { when CX::Warn { note $_; exit 1 } }
morre com mais frequência.
Este script morre comCONTROL { when CX::Warn { note $_; exit 1 } }
mas não comuse 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;