home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _b610b3284667fa0c43442991c40f2f7e < prev    next >
Text File  |  2000-03-23  |  3KB  |  101 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>SOAP::Packager - SOAP internal helper class</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> SOAP::Packager - SOAP internal helper class</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.     <LI><A HREF="#see also">SEE ALSO</A></LI>
  27. </UL>
  28. <!-- INDEX END -->
  29.  
  30. <HR>
  31. <P>
  32. <H1><A NAME="name">NAME</A></H1>
  33. <P>SOAP::Packager - SOAP internal helper class</P>
  34. <P>
  35. <HR>
  36. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  37. <UL>
  38. <LI>Linux</LI>
  39. <LI>Solaris</LI>
  40. <LI>Windows</LI>
  41. </UL>
  42. <HR>
  43. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  44. <PRE>
  45.     use SOAP::Packager;
  46.     my $packager = SOAP::Packager->new('s:', 1, sub { print shift } );</PRE>
  47. <PRE>
  48.     # some object used as a reference
  49.     my $object = SOAP::Object->new();</PRE>
  50. <PRE>
  51.     # on a given packager, register() always returns the same id for a given object
  52.     my $id = $packager->register($env, $object);
  53.     unless($id == $packager->register($env, $object)) { die "internal error" }</PRE>
  54. <PRE>
  55.     # this serializes objectA
  56.     $packager->seal($envelope);</PRE>
  57. <PRE>
  58.     # note that the package is still valid
  59.     unless($id == $packager->register($env, $object)) { die "internal error" }</PRE>
  60. <PRE>
  61.     my $objectB = SOAP::Object->new();
  62.     my $idB = $packager->register($env, $objectB);
  63.     unless($idB == $packager->register($env, $objectB)) { die "internal error" }</PRE>
  64. <PRE>
  65.     # this just serializes objectB - objectA was already serialized before
  66.     $packager->seal($env);</PRE>
  67. <PRE>
  68.     # this does nothing except waste some cycles enumerating a hash table
  69.     $packager->seal($env=);</PRE>
  70. <PRE>
  71.     # hash tables shut down at destruction of packager, releasing object references
  72.     $packager = undef;</PRE>
  73. <P>
  74. <HR>
  75. <H1><A NAME="description">DESCRIPTION</A></H1>
  76. <P>This is an internal class used by the SOAP/Perl implementation. It is designed to
  77. manage a table of object references and XML ids used for serializing object graphs
  78. that may contain multiref data (and perhaps even cycles). If you are extending
  79. SOAP/Perl, the above synopsis will probably be all you need if you want to reuse this
  80. class. Whatever you pass for the $env reference should implement a function called
  81. _alloc_id that returns a unique string each time it is called. This is normally
  82. implemented by SOAP::Envelope, so you can see a sample implementation there.</P>
  83. <P>
  84. <HR>
  85. <H1><A NAME="author">AUTHOR</A></H1>
  86. <P>Keith Brown</P>
  87. <P>
  88. <HR>
  89. <H1><A NAME="see also">SEE ALSO</A></H1>
  90. <P>SOAP::Envelope
  91. SOAP::OutputStream</P>
  92. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  93. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  94. <STRONG><P CLASS=block> SOAP::Packager - SOAP internal helper class</P></STRONG>
  95. </TD></TR>
  96. </TABLE>
  97.  
  98. </BODY>
  99.  
  100. </HTML>
  101.