import SOAP-WSDL 2.00_25 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_25
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_25.tar.gz

lib/SOAP/WSDL/Generator/Template/XSD/Server/POD/Message.tt

@@ -0,0 +1,9 @@
+[%
+  message_name = port_op.first_output.get_message();
+  # message_name;
+
+  part_from = definitions.find_message( port_op.first_output.expand( message_name ) ).get_part;
+  FOREACH part = part_from;
+    INCLUDE Server/POD/OutPart.tt(part = part);
+  END;
+%]

lib/SOAP/WSDL/Generator/Template/XSD/Server/POD/Operation.tt

@@ -0,0 +1,15 @@
+=head3 [% operation.get_name %]
+
+[%     type = definitions.find_portType( binding.expand( binding.get_type ) );
+    port_op = type.find_operation( definitions.get_targetNamespace, operation.get_name );
+port_op.get_documentation %]
+
+ sub [% operation.get_name %](
+    my ($self, $body, $header) = @_;
+    # body is a ??? object - sorry, POD not implemented yet
+    # header is a ??? object - sorry, POD not implemented yet
+    
+    # do something with body and header...
+    
+    return [% INCLUDE Server/POD/Message.tt %]
+ }

lib/SOAP/WSDL/Generator/Template/XSD/Server/POD/OutPart.tt

@@ -0,0 +1,10 @@
+[% element = definitions.first_types.find_element( part.expand( part.get_element ) );
+    #element.get_name();
+    #element;
+    #STOP;
+-%]
+ [% element_prefix %]::[% element.get_name.replace('\.', '::') %]->new([% 
+    type = element.first_complexType || element.first_simpleType || definitions.first_types.find_type(
+        element.expand( element.get_type ) );
+    INCLUDE Interface/POD/Type.tt; %]
+ );

lib/SOAP/WSDL/Generator/Template/XSD/Server/POD/method_info.tt

@@ -0,0 +1,4 @@
+Your dispatch_to class has to implement the following methods:
+
+The examples below serve as copy-and-paste prototypes to use in your
+class.