如何获取当前在perl模块中启用的一组警告检查？

在 perllexwarn中定义了所有可能设置的警告.

但是这里没有什么,如何打印出我目前启用的警告.

例如.：

use strict;
use warnings;

print warnings::enabled->pretty_print(); #fictional...

这怎么可能？

例：

use strict;
use 5.012;
use warnings;

my $aaa;
say "$aaa";

say warnings::enabled("uninitialized") ? "yes" : "no";

以上将输出：

Use of uninitialized value $aaa in string at y line 6.

no

所以“未初始化”警告类别是“set”,因为它会打印一个警告,但是warnings :: enabled(“uninitialized”)不会返回true.

解决方法

阅读 perllexwarn

… functions that are useful for module authors. These are used when you
want to report a module-specific warning to a calling module has
enabled warnings via the “warnings” pragma.

如果我理解正确,这意味着功能(启用,警告)仅适用于特定于模块的警告,而不适用于标准类别. (在文档中的“有”之前可能缺少“该”).

更新：似乎标准类别工作,但只有在一个模块：

package MY;
use warnings::register;
sub S {
    my $x;
    print $x,"\t";
    print warnings::enabled("uninitialized"),"\n";
}

package main;
use warnings;
MY::S();
no warnings;
MY::S();