¿Cómo obtener el conjunto de comprobaciones de advertencia actualmente habilitadas en el módulo perl?

Question

En el perllexwarn se definen todas las advertencias que es posible establecer.

Pero aquí no hay nada, cómo imprimir las advertencias que tengo habilitadas actualmente.

ej .:

use strict; 
use warnings; 

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

¿Cómo es posible?

ejemplo:

use strict; 
use 5.012; 
use warnings; 

my $aaa; 
say "$aaa"; 

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

Lo anterior es la salida:

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

no 

así, el nivel de advertencia es "sin inicializar" se "ajuste", debido a que sus impresiones una advertencia, pero no el warnings::enabled("uninitialized") vuelve true .

Answer 1

lectura perllexwarn

... funciones que son útiles para los autores de los módulos. Estos se utilizan cuando quiere informar una advertencia específica del módulo a un módulo que llama tiene advertencias habilitadas a través del pragma "advertencias".

Si he entendido bien, significa que las funciones (enabled, warnif) sólo funcionan para avisos específicos del módulo, no para las categorías estándar. (Probablemente hay una falta "que" antes "tiene" en la documentación.)

Actualización: Parece categorías estándar funcionan tan bien, pero sólo en un módulo:

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();