Perl6：我怎么能让所有警告致命？

Question

我怎么能在Perl6中发出所有警告致命，这样一旦屏幕上出现警告，脚本就会死掉。

configurations.all { resolutionStrategy { force 'com.nineoldandroids:library:2.4.0' } } 经常死亡。

此脚本会以CONTROL { when CX::Warn { note $_; exit 1 } }而不是CONTROL { when CX::Warn { note $_; exit 1 } }而死：

use fatal

Answer 1

你可以使用'使用致命'使所有异常立即致命。例如，在您尝试从$ file读取之前，此代码不会抛出错误，因此它将到达“说”行。如果您取消注释'使用致命'，它将立即在'打开'语句中死亡，而不会到达'说'行。

有关更细粒度的控制，请参阅try / CATCH系统以了解异常。

password = PasswordField('Password', validators=[DataRequired()])

Answer 2

警告是默认情况下恢复的CX::Warn类型的控制异常。如果您想要更改该行为，则需要添加CONTROL块，在您的情况下如下：

CONTROL {
    when CX::Warn {
        note $_;
        exit 1;
    }
}

忽略所有警告而不是让它们致命，看起来像这样：

CONTROL {
    when CX::Warn { .resume }
}