home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _b2648290cfceb8e0e84413d2e77c16bd < prev    next >
Text File  |  2000-03-23  |  3KB  |  95 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>warnings - Perl pragma to control optional warnings</TITLE>
  5. <LINK REL="stylesheet" HREF="../Active.css" TYPE="text/css">
  6. <LINK REV="made" HREF="mailto:">
  7. </HEAD>
  8.  
  9. <BODY>
  10. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  11. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  12. <STRONG><P CLASS=block> warnings - Perl pragma to control optional warnings</P></STRONG>
  13. </TD></TR>
  14. </TABLE>
  15.  
  16. <A NAME="__index__"></A>
  17. <!-- INDEX BEGIN -->
  18.  
  19. <UL>
  20.  
  21.     <LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
  22.  
  23.     <LI><A HREF="#synopsis">SYNOPSIS</A></LI>
  24.     <LI><A HREF="#description">DESCRIPTION</A></LI>
  25. </UL>
  26. <!-- INDEX END -->
  27.  
  28. <HR>
  29. <P>
  30. <H1><A NAME="name">NAME</A></H1>
  31. <P>warnings - Perl pragma to control optional warnings</P>
  32. <P>
  33. <HR>
  34. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  35. <UL>
  36. <LI>Linux</LI>
  37. <LI>Solaris</LI>
  38. <LI>Windows</LI>
  39. </UL>
  40. <HR>
  41. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  42. <PRE>
  43.     use warnings;
  44.     no warnings;</PRE>
  45. <PRE>
  46.     use warnings "all";
  47.     no warnings "all";</PRE>
  48. <PRE>
  49.     use warnings::register;
  50.     if (warnings::enabled()) {
  51.         warnings::warn("some warning");
  52.     }</PRE>
  53. <PRE>
  54.     if (warnings::enabled("void")) {
  55.         warnings::warn("void", "some warning");
  56.     }</PRE>
  57. <P>
  58. <HR>
  59. <H1><A NAME="description">DESCRIPTION</A></H1>
  60. <P>If no import list is supplied, all possible warnings are either enabled
  61. or disabled.</P>
  62. <P>A number of functions are provided to assist module authors.</P>
  63. <DL>
  64. <DT><STRONG><A NAME="item_use_warnings%3A%3Aregister">use warnings::register</A></STRONG><BR>
  65. <DD>
  66. Creates a new warnings category which has the same name as the module
  67. where the call to the pragma is used.
  68. <P></P>
  69. <DT><STRONG><A NAME="item_enabled">warnings::enabled([$category])</A></STRONG><BR>
  70. <DD>
  71. Returns TRUE if the warnings category <CODE>$category</CODE> is enabled in the
  72. calling module.  Otherwise returns FALSE.
  73. <P>If the parameter, <CODE>$category</CODE>, isn't supplied, the current package name
  74. will be used.</P>
  75. <P></P>
  76. <DT><STRONG><A NAME="item_warn">warnings::warn([$category,] $message)</A></STRONG><BR>
  77. <DD>
  78. If the calling module has <EM>not</EM> set <CODE>$category</CODE> to ``FATAL'', print
  79. <CODE>$message</CODE> to STDERR.
  80. If the calling module has set <CODE>$category</CODE> to ``FATAL'', print <CODE>$message</CODE>
  81. STDERR then die.
  82. <P>If the parameter, <CODE>$category</CODE>, isn't supplied, the current package name
  83. will be used.</P>
  84. <P></P></DL>
  85. <P>See <A HREF="../lib/Pod/perlmod.html#pragmatic modules">Pragmatic Modules in the perlmod manpage</A> and <A HREF="../lib/Pod/perllexwarn.html">the perllexwarn manpage</A>.</P>
  86. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  87. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  88. <STRONG><P CLASS=block> warnings - Perl pragma to control optional warnings</P></STRONG>
  89. </TD></TR>
  90. </TABLE>
  91.  
  92. </BODY>
  93.  
  94. </HTML>
  95.