home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _fe2cd4bd7ea4048964df59ae0cb06f71 < prev    next >
Encoding:
Text File  |  2000-03-15  |  660 b   |  54 lines
  1. package SOAP::GenericScalarSerializer;
  2.  
  3. use strict;
  4. use vars qw($VERSION);
  5. use SOAP::Defs;
  6.  
  7. $VERSION = '0.23';
  8.  
  9. sub new {
  10.     my ($class, $scalar) = @_;
  11.     
  12.     my $self = \$scalar;
  13.     bless $self, $class;
  14. }
  15.  
  16. sub get_typeinfo {
  17.     (undef, undef);
  18. }
  19.  
  20. sub is_package {
  21.     0;
  22. }
  23.  
  24. sub get_accessor_type {
  25.     $soapperl_accessor_type_simple;
  26. }
  27.  
  28. sub serialize_as_string {
  29.     my $self = shift;
  30.     $$self;
  31. }
  32.  
  33. 1;
  34. __END__
  35.  
  36.  
  37. =head1 NAME
  38.  
  39. SOAP::GenericScalarSerializer - Generic serializer for Perl scalar references
  40.  
  41. =head1 SYNOPSIS
  42.  
  43. Forthcoming
  44.  
  45. =head1 DESCRIPTION
  46.  
  47. Forthcoming
  48.  
  49. =head1 AUTHOR
  50.  
  51. Keith Brown
  52.  
  53. =cut
  54.