关于-Perl-中的-warnings-enabled-函数

首先将一个模块注册到 warnings::register 中. 这样这个模块才能使用 warnings::enabled 函数.

use warnings::register;

在注册的模块本身中运行 warnings::enabled 似乎不行.

package Test::Warning;
use warnings::register;

sub Warning {
    print "You can Warning!" if warnings::enabled();
}

# 运行时无内容打出
Warning();

但在其他 Perl 脚本中使用可行, 可用 use warnings; 来改变其返回值

use Test::Warning;
use warnings;

Test::Warning::Warning();