Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
COM	[ DIR ]	drwxr-xr-x
My	[ DIR ]	drwxr-xr-x
SOAP	[ DIR ]	drwxr-xr-x
UDDI	[ DIR ]	drwxr-xr-x
WSDL	[ DIR ]	drwxr-xr-x
XML	[ DIR ]	drwxr-xr-x
XMLRPC	[ DIR ]	drwxr-xr-x
forms	[ DIR ]	drwxr-xr-x
server	[ DIR ]	drwxr-xr-x
allclients.pl	1.3 KB	-rw-r--r--
authentication.pl	1.1 KB	-rw-r--r--
autoexamples.pl	890 B	-rw-r--r--
chat.pl	1.1 KB	-rw-r--r--
compress.pl	488 B	-rw-r--r--
cookie.pl	458 B	-rw-r--r--
cookieauth.pl	386 B	-rw-r--r--
customschema.pl	3.12 KB	-rw-r--r--
fullsearch.pl	1023 B	-rw-r--r--
getdom.pl	1.77 KB	-rw-r--r--
google.pl	886 B	-rw-r--r--
inline.daemon	672 B	-rw-r--r--
iterator.pl	866 B	-rw-r--r--
joke.pl	469 B	-rw-r--r--
oneliners	187 B	-rw-r--r--
oo-apache.pl	798 B	-rw-r--r--
parametersbyname.pl	979 B	-rw-r--r--
pingpong.pl	1.01 KB	-rw-r--r--
soapmark.pl	1.92 KB	-rw-r--r--
soapsmtp.pl	768 B	-rw-r--r--
tcpclient.pl	572 B	-rw-r--r--
terraserver.pl	1.29 KB	-rw-r--r--
weblog.pl	480 B	-rw-r--r--

Code Editor : getdom.pl

#!/usr/bin/perl -w
#!d:\perl\bin\perl.exe

use SOAP::Lite;

# example of custom serialization/deserialization

BEGIN {
  use XML::DOM;

# deserializer has to specify new() and deserialize() methods
  package My::Deserializer;
  sub new { bless { _parser => XML::DOM::Parser->new } => ref($_[0]) || $_[0] }
  sub deserialize { shift->{_parser}->parse(shift) }

# serializer is inherited from SOAP::Serializer
  package My::Serializer; @My::Serializer::ISA = 'SOAP::Serializer';

# nothing special here. as_OBJECT_TYPE() method will catch serialization
  # of the specified type (use '__' instead of '::'), so object of this
  # type will be properly serializer even being inside complex data structures
  sub as_XML__DOM__Document {
    my $self = shift;
    my($value, $name, $type, $attr) = @_;

return [
      $name || $self->SUPER::gen_name(),                   # name
      {%$attr, 'xsi:type' => $self->maptypetouri($type)},  # attributes (optional)
      $value->toString,                                    # value
      $self->gen_id($value),                               # multiref id (optional)
    ];
  }
}

print "Deserialize to XML::DOM\n";
my $dom = My::Deserializer->new->deserialize('<a>1</a>');

print ref $dom, ': ', $dom->toString, "\n";

# serialize SOAP message using XML::DOM value
my $a = My::Serializer->maptype({'XML::DOM::Document' => 'http://my.something/'})
                      ->freeform(SOAP::Data->name('a' => [1, $dom, 2]));
print "Serialize array with @{[ref $dom]} element\n";
print $a, "\n";

print "Deserialize with default deserializer\n";
my $r = SOAP::Deserializer->deserialize($a)->freeform;

use Data::Dumper; $Data::Dumper::Terse = 1; $Data::Dumper::Indent = 1;
print Dumper($r);

${this.title}

Code Editor : getdom.pl