home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _a18e74556d280657e357c1e75b9bc8a4 < prev    next >
Text File  |  2000-03-23  |  3KB  |  105 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Class::Template - struct/member template builder</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> Class::Template - struct/member template builder</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="#examples">EXAMPLES</A></LI>
  24.     <LI><A HREF="#notes">NOTES</A></LI>
  25. </UL>
  26. <!-- INDEX END -->
  27.  
  28. <HR>
  29. <P>
  30. <H1><A NAME="name">NAME</A></H1>
  31. <P>Class::Template - struct/member template builder</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="examples">EXAMPLES</A></H1>
  42. <UL>
  43. <LI><STRONG><A NAME="item_Example_1">Example 1</A></STRONG><BR>
  44.  
  45. <PRE>
  46.         use Class::Template;
  47. </PRE>
  48. <PRE>
  49.  
  50.         struct( rusage => {
  51.                 ru_utime => timeval,
  52.                 ru_stime => timeval,
  53.         });</PRE>
  54. <PRE>
  55.  
  56.         struct( timeval => [
  57.                 tv_secs  => '$',
  58.                 tv_usecs => '$',
  59.         ]);</PRE>
  60. <PRE>
  61.         my $s = new rusage;</PRE>
  62. <LI><STRONG><A NAME="item_Example_2">Example 2</A></STRONG><BR>
  63.  
  64. <PRE>
  65.         package OBJ;
  66.         use Class::Template;</PRE>
  67. <PRE>
  68.         members OBJ {
  69.                 'a'     => '$',
  70.                 'b'     => '$',
  71.         };</PRE>
  72. <PRE>
  73.         members OBJ2 {
  74.                 'd'     => '@',
  75.                 'c'     => '$',
  76.         };</PRE>
  77. <PRE>
  78.         package OBJ2; @ISA = (OBJ);</PRE>
  79. <PRE>
  80.         sub new {
  81.                 my $r = InitMembers( &OBJ::InitMembers() );
  82.                 bless $r;
  83.         }</PRE>
  84. </UL>
  85. <P>
  86. <HR>
  87. <H1><A NAME="notes">NOTES</A></H1>
  88. <PRE>
  89.  
  90. Use '%' if the member should point to an anonymous hash.  Use '@' if the
  91. member should point to an anonymous array.</PRE>
  92. <P>When using % and @ the method requires one argument for the key or index
  93. into the hash or array.</P>
  94. <P>Prefix the %, @, or $ with '*' to indicate you want to retrieve pointers to
  95. the values rather than the values themselves.</P>
  96. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  97. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  98. <STRONG><P CLASS=block> Class::Template - struct/member template builder</P></STRONG>
  99. </TD></TR>
  100. </TABLE>
  101.  
  102. </BODY>
  103.  
  104. </HTML>
  105.