GNU/Linux |
RedHat 9.0(Shrike) |
|
![]() |
warnings(3pm) |
![]() |
warnings − Perl pragma to control optional warnings
use warnings;
no warnings;
use warnings "all";
no warnings "all";
use warnings::register;
if (warnings::enabled()) {
warnings::warn("some warning");
}
if (warnings::enabled("void")) {
warnings::warn("void", "some warning");
}
if (warnings::enabled($object)) {
warnings::warn($object, "some warning");
}
warnings::warnif("some warning");
warnings::warnif("void", "some warning");
warnings::warnif($object, "some warning");
If no import list is supplied, all possible warnings are either enabled or disabled.
A number of
functions are provided to assist module authors.
use warnings::register
Creates a new warnings category with the same name as the package where the call to the pragma is used.
warnings::enabled()
Use the warnings category with the same name as the current package.
Return TRUE if that warnings category is enabled in the calling module. Otherwise returns FALSE .
warnings::enabled($category)
Return TRUE if the warnings category, $category, is enabled in the calling module. Otherwise returns FALSE .
warnings::enabled($object)
Use the name of the class for the object reference, $object, as the warnings category.
Return TRUE if that warnings category is enabled in the first scope where the object is used. Otherwise returns FALSE .
warnings::warn($message)
Print $message to STDERR .
Use the warnings category with the same name as the current package.
If that warnings category has been set to " FATAL " in the calling module then die. Otherwise return.
warnings::warn($category, $message)
Print $message to STDERR .
If the warnings category, $category, has been set to " FATAL " in the calling module then die. Otherwise return.
warnings::warn($object, $message)
Print $message to STDERR .
Use the name of the class for the object reference, $object, as the warnings category.
If that warnings category has been set to " FATAL " in the scope where $object is first used then die. Otherwise return.
warnings::warnif($message)
Equivalent to:
if (warnings::enabled())
{ warnings::warn($message) }
warnings::warnif($category, $message)
Equivalent to:
if (warnings::enabled($category))
{ warnings::warn($category, $message) }
warnings::warnif($object, $message)
Equivalent to:
if (warnings::enabled($object))
{ warnings::warn($object, $message) }
See "Pragmatic Modules" in perlmodlib and perllexwarn.
![]() |
warnings(3pm) | ![]() |