home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _db7fb60824ecaa5fd5216bd553b18711 < prev    next >
Text File  |  2000-03-23  |  3KB  |  89 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Fatal - replace functions with equivalents which succeed or die</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> Fatal - replace functions with equivalents which succeed or die</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.     <LI><A HREF="#author">AUTHOR</A></LI>
  26. </UL>
  27. <!-- INDEX END -->
  28.  
  29. <HR>
  30. <P>
  31. <H1><A NAME="name">NAME</A></H1>
  32. <P>Fatal - replace functions with equivalents which succeed or die</P>
  33. <P>
  34. <HR>
  35. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  36. <UL>
  37. <LI>Linux</LI>
  38. <LI>Solaris</LI>
  39. <LI>Windows</LI>
  40. </UL>
  41. <HR>
  42. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  43. <PRE>
  44.     use Fatal qw(open close);</PRE>
  45. <PRE>
  46.     sub juggle { . . . }
  47.     import Fatal 'juggle';</PRE>
  48. <P>
  49. <HR>
  50. <H1><A NAME="description">DESCRIPTION</A></H1>
  51. <P><CODE>Fatal</CODE> provides a way to conveniently replace functions which normally
  52. return a false value when they fail with equivalents which raise exceptions
  53. if they are not successful.  This lets you use these functions without
  54. having to test their return values explicitly on each call.  Exceptions
  55. can be caught using <A HREF="../lib/Pod/perlfunc.html#item_eval"><CODE>eval{}</CODE></A>.  See <A HREF="../lib/Pod/perlfunc.html">the perlfunc manpage</A> and <A HREF="../lib/Pod/perlvar.html">the perlvar manpage</A> for details.</P>
  56. <P>The do-or-die equivalents are set up simply by calling Fatal's
  57. <A HREF="../lib/Pod/perlfunc.html#item_import"><CODE>import</CODE></A> routine, passing it the names of the functions to be
  58. replaced.  You may wrap both user-defined functions and overridable
  59. CORE operators (except <A HREF="../lib/Pod/perlfunc.html#item_exec"><CODE>exec</CODE></A>, <A HREF="../lib/Pod/perlfunc.html#item_system"><CODE>system</CODE></A> which cannot be expressed
  60. via prototypes) in this way.</P>
  61. <P>If the symbol <CODE>:void</CODE> appears in the import list, then functions
  62. named later in that import list raise an exception only when
  63. these are called in void context--that is, when their return
  64. values are ignored.  For example</P>
  65. <PRE>
  66.         use Fatal qw/:void open close/;</PRE>
  67. <PRE>
  68.         # properly checked, so no exception raised on error
  69.         if(open(FH, "< /bogotic") {
  70.                 warn "bogo file, dude: $!";
  71.         }</PRE>
  72. <PRE>
  73.         # not checked, so error raises an exception
  74.         close FH;</PRE>
  75. <P>
  76. <HR>
  77. <H1><A NAME="author">AUTHOR</A></H1>
  78. <P><A HREF="mailto:Lionel.Cons@cern.ch">Lionel.Cons@cern.ch</A></P>
  79. <P>prototype updates by Ilya Zakharevich <A HREF="mailto:ilya@math.ohio-state.edu">ilya@math.ohio-state.edu</A></P>
  80. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  81. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  82. <STRONG><P CLASS=block> Fatal - replace functions with equivalents which succeed or die</P></STRONG>
  83. </TD></TR>
  84. </TABLE>
  85.  
  86. </BODY>
  87.  
  88. </HTML>
  89.