perl/lib/warnings.pm

514     # &enabled and &fatal_enabled
517     # &warnif, and the category is neither enabled as warning nor as fatal
537     # category is enabled
572 sub enabled
628     # Standard warnings are enabled by use v5.35 or above
638     if (warnings::enabled()) {
642     if (warnings::enabled("void")) {
646     if (warnings::enabled($object)) {
656 The C<warnings> pragma gives control over which warnings are enabled in
671 All warnings are enabled in a block by either of these:
691 The code in the enclosing block has warnings enabled, but the inner
696 All warnings are enabled automatically within the scope of
713 mandatory warnings are still enabled by default, they can then be
714 subsequently enabled or disabled with the lexical warning pragma.  For
871 are used, then default warnings will be enabled and optional warnings
909 to be enabled/disabled in isolation.
1081     use warnings qw(void); # only "void" warnings enabled
1083     use warnings qw(io);   # only "void" & "io" warnings enabled
1085     no warnings qw(void);  # only "io" warnings enabled
1210 warning to a calling module has enabled warnings via the C<warnings>
1223                 if warnings::enabled();
1235 enabled them with the C<warnings> pragma like below.
1243 set in the calling module with the C<warnings::enabled> function.  Consider
1249         if (warnings::enabled("deprecated")) {
1262 "deprecated" warnings category enabled.  Something like this, say.
1283 and C<warnings::enabled> can optionally take an object reference in place
1305         if ($value % 2 && warnings::enabled($self))
1374 =item warnings::enabled()
1378 Return TRUE if that warnings category is enabled in the calling module.
1381 =item warnings::enabled($category)
1383 Return TRUE if the warnings category, C<$category>, is enabled in the
1387 =item warnings::enabled($object)
1392 Return TRUE if that warnings category is enabled in the first scope
1398 Like C<warnings::enabled>, but $level specifies the exact call frame, 0
1462     if (warnings::enabled())
1469     if (warnings::enabled($category))
1476     if (warnings::enabled($object))