Как получить набор проверок предупреждений, включенных в настоящее время в модуле 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

Итак, категория предупреждений "неинициализированные" имеет значение "установлено", потому что она выводит предупреждение, но warnings::enabled("uninitialized")не возвращает true.