Next SOAP::Lite Client Experiences 12

Sometimes You Need To Construct Data Structures


     import SOAP::Data qw/name value/;

        my $reported = name(
            reportedbylist => [
              name( item => \value(
                name( comments  => $comments ),
                name( showorder => 0         )->type('xsd:short')
              ))->type('ttns:CReportedByRecord')
            ]
        );

        my $defect = name('pDefect' => \value(
            name( summary   => $summary         ),
            name( enteredby => $currentUserName ),
            name( priority  => $priority        ),
            name( reference => $reference       ),
            $reported
        ))->type('ttns:CDefect');

Copyright © 2004 David Baird