由 use warnings 编译指示启用的一组当前警告检查。它的作用域与 $^H 和 %^H 变量相同。确切的值被认为是 warnings 编译指示的内部实现，并且可能在不同版本的 Perl 之间发生变化。
use warnings
$^H
%^H
每次语句完成编译时，${^WARNING_BITS} 的当前值都会与该语句一起存储，并且可以通过 (caller($level))[9] 检索。
${^WARNING_BITS}
(caller($level))[9]
此变量在 Perl v5.6.0 中添加。