home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _d84abfcb1cc2be936adc1d29bb7a8c6b < prev    next >
Text File  |  2000-03-23  |  3KB  |  88 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>attrs - set/get attributes of a subroutine</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> attrs - set/get attributes of a subroutine</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>attrs - set/get attributes of a subroutine (deprecated)</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.     sub foo {
  44.         use attrs qw(locked method);
  45.         ...
  46.     }</PRE>
  47. <PRE>
  48.     @a = attrs::get(\&foo);</PRE>
  49. <P>
  50. <HR>
  51. <H1><A NAME="description">DESCRIPTION</A></H1>
  52. <P>NOTE: Use of this pragma is deprecated.  Use the syntax</P>
  53. <PRE>
  54.     sub foo : locked method { }</PRE>
  55. <P>to declare attributes instead.  See also <A HREF="../lib/attributes.html">the attributes manpage</A>.</P>
  56. <P>This pragma lets you set and get attributes for subroutines.
  57. Setting attributes takes place at compile time; trying to set
  58. invalid attribute names causes a compile-time error. Calling
  59. <CODE>attrs::get</CODE> on a subroutine reference or name returns its list
  60. of attribute names. Notice that <CODE>attrs::get</CODE> is not exported.
  61. Valid attributes are as follows.</P>
  62. <DL>
  63. <DT><STRONG><A NAME="item_method">method</A></STRONG><BR>
  64. <DD>
  65. Indicates that the invoking subroutine is a method.
  66. <P></P>
  67. <DT><STRONG><A NAME="item_locked">locked</A></STRONG><BR>
  68. <DD>
  69. Setting this attribute is only meaningful when the subroutine or
  70. method is to be called by multiple threads. When set on a method
  71. subroutine (i.e. one marked with the <STRONG>method</STRONG> attribute above),
  72. perl ensures that any invocation of it implicitly locks its first
  73. argument before execution. When set on a non-method subroutine,
  74. perl ensures that a lock is taken on the subroutine itself before
  75. execution. The semantics of the lock are exactly those of one
  76. explicitly taken with the <A HREF="../lib/Pod/perlfunc.html#item_lock"><CODE>lock</CODE></A> operator immediately after the
  77. subroutine is entered.
  78. <P></P></DL>
  79. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  80. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  81. <STRONG><P CLASS=block> attrs - set/get attributes of a subroutine</P></STRONG>
  82. </TD></TR>
  83. </TABLE>
  84.  
  85. </BODY>
  86.  
  87. </HTML>
  88.