Lines Matching refs:me
67 my $me = shift;
72 $me->_writeMessageRequestElem($types, $style, $wrapped);
73 $me->writer->wrNewLine;
75 unless ($me->oneway) {
76 if ($me->return) {
77 $me->_writeMessageResponseElem($types, $style, $wrapped);
78 $me->writer->wrNewLine;
80 unless ($me->writer->emptyMessageWritten) {
81 $me->writer->wrElem($EMPTY_PREFIX_NAME, 'wsdl:message', name => $EMPTY_MESSAGE_NAME);
82 $me->writer->registerWrittenEmptyMessage;
83 $me->writer->wrNewLine;
88 for my $fault (@{$me->faults}) {
89 next if $me->writer->faultMessageWritten($fault->wsdlName);
91 $me->_writeMessageFaultElem($fault->wsdlName, $style, $wrapped);
92 $me->writer->registerWrittenFaultMessage($fault->wsdlName);
93 $me->writer->wrNewLine;
98 my $me = shift;
100 my $name = $me->name;
103 for my $param (@{$me->params}) {
116 $me->writer->wrElem($START_PREFIX_NAME, 'wsdl:operation', name => $name, @p_order);
117 $me->writer->wrDoc($me->doc->descr);
118 $me->writer->wrElem($EMPTY_PREFIX_NAME, 'wsdl:input', message => "$IMPL_NS_DECL:$inputName", name => $inputName);
121 unless ($me->oneway) {
122 if ($me->return) {
123 $me->writer->wrElem($EMPTY_PREFIX_NAME, 'wsdl:output', message => "$IMPL_NS_DECL:$outputName", name => $outputName);
125 $me->writer->wrElem($EMPTY_PREFIX_NAME, 'wsdl:output', message => "$IMPL_NS_DECL:$EMPTY_MESSAGE_NAME");
132 for my $fault (@{$me->faults}) {
135 if ($fault->descr and $me->writer->withDocumentation) {
141 $me->writer->wrElem($elemType, "wsdl:fault", message => "$IMPL_NS_DECL:" . $fault->wsdlName, name => $fault->wsdlName);
145 $me->writer->wrDoc($fault->descr);
146 $me->writer->wrElem($END_PREFIX_NAME, "wsdl:fault");
150 $me->writer->wrElem($END_PREFIX_NAME, 'wsdl:operation');
154 my $me = shift;
159 $me->writer->wrElem($START_PREFIX_NAME, 'wsdl:message', name => $me->requestName);
162 $me->writer->wrElem($EMPTY_PREFIX_NAME, 'wsdl:part', name => 'parameters', element => $me->requestName);
164 for my $param (@{$me->params}) {
165 $me->_writePartElem($param->name, $param->type, $param->array, $param->descr, $style, 0, $types->{$param->type}) if $param->paramType =~ /^(INOUT|OUT|IN)$/;
169 $me->writer->wrElem($END_PREFIX_NAME, 'wsdl:message');
173 my $me = shift;
178 $me->writer->wrElem($START_PREFIX_NAME, 'wsdl:message', name => $me->responseName);
181 $me->writer->wrElem($EMPTY_PREFIX_NAME, 'wsdl:part', name => 'parameters', element => $me->responseName);
183 for my $param (@{$me->params}) {
184 $me->_writePartElem($param->name, $param->type, $param->array, $param->descr, $style, 0, $types->{$param->type}) if $param->paramType =~ /^(INOUT|OUT)?$/;
187 if (defined $me->return) {
188 $me->_writePartElem($me->name . $RETURN_SUFFIX_NAME, $me->return->type, $me->return->array, $me->return->descr, $style, 1, $types->{$me->return->type});
192 $me->writer->wrElem($END_PREFIX_NAME, 'wsdl:message');
196 my $me = shift;
209 $me->writer->wrElem($START_PREFIX_NAME, 'wsdl:message', name => $name);
210 $me->writer->wrElem($EMPTY_PREFIX_NAME, 'wsdl:part', %attrs);
211 $me->writer->wrElem($END_PREFIX_NAME, 'wsdl:message');
215 my $me = shift;
229 $attrs{element} = ($isReturn ? lcfirst $RETURN_SUFFIX_NAME : $name) . $PART_IN . ucfirst $me->requestName
232 if ($descr and $me->writer->withDocumentation) {
233 $me->writer->wrElem($START_PREFIX_NAME, 'wsdl:part', %attrs);
234 $me->writer->wrDoc($descr);
235 $me->writer->wrElem($END_PREFIX_NAME, 'wsdl:part');
238 $me->writer->wrElem($EMPTY_PREFIX_NAME, 'wsdl:part', %attrs);
243 my $me = shift;
247 $me->writer->wrElem($START_PREFIX_NAME, "wsdl:operation", name => $me->name);
248 $me->writer->wrElem($EMPTY_PREFIX_NAME, "wsdlsoap:operation", soapAction => "");
249 $me->writer->wrElem($START_PREFIX_NAME, "wsdl:input", name => $me->requestName);
250 $me->writer->wrElem($EMPTY_PREFIX_NAME, "wsdlsoap:body", encodingStyle => "http://schemas.xmlsoap.org/soap/encoding/", namespace => $location, use => $use);
251 $me->writer->wrElem($END_PREFIX_NAME, "wsdl:input");
253 unless ($me->oneway) {
254 $me->writer->wrElem($START_PREFIX_NAME, "wsdl:output", name => $me->return ? $me->responseName : $EMPTY_MESSAGE_NAME);
255 $me->writer->wrElem($EMPTY_PREFIX_NAME, "wsdlsoap:body", encodingStyle => "http://schemas.xmlsoap.org/soap/encoding/", namespace => $location, use => $use);
256 $me->writer->wrElem($END_PREFIX_NAME, "wsdl:output");
259 for my $fault (@{$me->faults}) {
260 $me->writer->wrElem($START_PREFIX_NAME, "wsdl:fault", name => $fault->wsdlName);
261 $me->writer->wrElem($EMPTY_PREFIX_NAME, "wsdlsoap:fault", name => $fault->wsdlName, encodingStyle => "http://schemas.xmlsoap.org/soap/encoding/", namespace => $location, use => $use);
262 $me->writer->wrElem($END_PREFIX_NAME, "wsdl:fault");
265 $me->writer->wrElem($END_PREFIX_NAME, "wsdl:operation");
269 my $me = shift;
272 for my $param (@{$me->params}) {
273 $me->writer->wrElem($EMPTY_PREFIX_NAME, 'element',
274 name => $param->name . $PART_IN . ucfirst $me->requestName,
278 for my $fault (@{$me->faults}) {
279 next if $me->writer->faultMessageWritten($fault->wsdlName . $MESSAGE_PART);
281 $me->writer->registerWrittenFaultMessage($fault->wsdlName . $MESSAGE_PART);
283 $me->writer->wrElem($EMPTY_PREFIX_NAME, 'element',
288 if (!$me->oneway and $me->return) {
289 $me->writer->wrElem($EMPTY_PREFIX_NAME, 'element',
290 name => lcfirst $RETURN_SUFFIX_NAME . $PART_IN . ucfirst $me->requestName,
291 type => Pod::WSDL::Utils::getTypeDescr($me->return->type, $me->return->array, $types->{$me->return->type}));