view release on metacpan or  search on metacpan

lib/SOAP/WSDL.pm  view on Meta::CPAN

        my $message = $wsdl->find_message( $ns, $localname )
          or croak "Message {$ns}$localname not found in WSDL definition";

        # Is body not required? So there must be one? Do we need the "if"?
        # if (
        my $body=$binding_operation->first_input()->first_body();
        # {
            if ($body->get_parts()) {
                $method->{ parts } = [];        # make sure it's empty
                my $message_part_ref = $message->get_part();
                for my $name ( split m{\s}xm , $body->get_parts() ) {
                    $name =~s{ \A [^:]+: }{}xm;  # throw away ns prefix
                    # could probably made more efficient, but our lists are
                    # usually quite short
                    push @{ $method->{ parts } },
                        grep { $_->get_name() eq $name } @{ $message_part_ref };
                }
            }
        # }
        # A body does not need to specify the parts of a messages.
        # Use all of the message's parts if it does not.

lib/SOAP/WSDL/Generator/Template/XSD/Interface/Body.tt  view on Meta::CPAN

[%  RETURN IF NOT item;
    type = definitions.find_portType( binding.expand( binding.get_type ) );
    port_op = type.find_operation( type.get_targetNamespace, operation.get_name );
    message = definitions.find_message( port_op.first_input.expand( port_op.first_input.get_message ) );
    part_from = message.get_part;
    PERL %]
    my $item = $stash->{ item };
    my $def = $stash->{ definitions };
    my $part_from = $stash->{ message }->get_part();

    my @body_part_from = split m{\s}, $item->get_parts;

    my @parts;
    if (@body_part_from) {
        @parts = map {
            my $part = $_;
            (grep {
                # my ($ns, $lname) = $def->expand( $_ );
                ($_ eq $part->get_name)
                } @body_part_from
            )