Help for this page

Select Code to Download


  1. or download this
    BEGIN {
        package MySerializer;
        @MySerializer::ISA = 'SOAP::Serializer';
    ...
            $_[2] =~ s/Response$// if $_[1] =~ /^(?:method|response)$/;
            shift->SUPER::envelope(@_);
        }
    
  2. or download this
    #!/usr/bin/perl
    
    use SOAP::Lite +trace => 'debug';
    ...
    
    $res = $som->result;                               
    print Dumper($som);