import SOAP-WSDL 2.00_29 from CPAN

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

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

@@ -0,0 +1,106 @@
+[% server_name = server_prefix _ '::'
+    _ service.get_name.replace('\.', '::') _ '::'
+    _ port.get_name.replace('^.+\.','');
+server_name = server_name.replace('-','_'); -%]
+package [% server_name %];
+use strict;
+use warnings;
+use Class::Std::Fast::Storable;
+use Scalar::Util qw(blessed);
+use base qw(SOAP::WSDL::Client::Base);
+
+# only load if it hasn't been loaded before
+require [% typemap_prefix %]::[% service.get_name.replace('\.', '::') %]
+    if not [% typemap_prefix %]::[% service.get_name.replace('\.', '::') %]->can('get_class');
+
+my %transport_class_of :ATTR(:name<transport_class> :default<SOAP::WSDL::Server::CGI>);
+my %transport_of :ATTR(:name<transport> :default<()>);
+my %dispatch_to :ATTR(:name<dispatch_to>);
+
+my $action_map_ref = {
+[%      binding = definitions.find_binding( port.expand( port.get_binding ) );
+        FOREACH operation = binding.get_operation;
+- %]
+    '[% operation.first_operation.get_soapAction %]' => '[%  operation.get_name %]',
+[% END %]
+};
+
+sub START {
+    my ($self, $ident, $arg_ref) = @_;
+    eval "require $transport_class_of{ $ident }"
+        or die "Cannot load transport class $transport_class_of{ $ident }: $@";
+    $transport_of{ $ident } = $transport_class_of{ $ident }->new({
+        action_map_ref => $action_map_ref,
+        class_resolver => '[% typemap_prefix %]::[% service.get_name.replace('\.', '::') %]',
+        dispatch_to => $dispatch_to{ $ident },
+    });
+}
+
+sub handle {
+    $transport_of{ ${ $_[0] } }->handle();
+}
+
+1;
+
+[% IF NO_POD; STOP; END %]
+
+__END__
+[%# work around for CPAN's indexer, which gets disturbed by pod in templates -%]
+[% pod = BLOCK %]=pod[% END -%]
+[% head1 = BLOCK %]=head1[% END -%]
+[% head2 = BLOCK %]=head2[% END -%]
+[% head3 = BLOCK %]=head3[% END -%]
+
+[% pod %]
+
+[% head1 %] NAME
+
+[% server_name %] - SOAP Server Class for the [% service.get_name %] Web Service
+
+[% head1 %] SYNOPSIS
+
+ use [% server_name %];
+ my $server = [% server_name %]->new({
+    dispatch_to => 'My::Handler::Class',
+    transport_class => 'SOAP::WSDL::Server::CGI',   # optional, default
+ });
+ $server->handle();
+
+
+[% head1 %] DESCRIPTION
+
+SOAP Server handler for the [% service.get_name %] web service
+located at [% port.first_address.get_location %].
+
+[% head1 %] SERVICE [% service.get_name %]
+
+[% service.get_documentation %]
+
+[% head2 %] Port [% port.get_name %]
+
+[% port.get_documentation %]
+
+[% head1 %] METHODS
+
+[% head2 %] General methods
+
+[% head3 %] new
+
+Constructor.
+
+The C<dispatch_to> argument is mandatory. It must be a class or object
+implementing the SOAP Service methods listed below.
+
+[% head2 %] SOAP Service methods
+
+[% INCLUDE Server/POD/method_info.tt %]
+
+[%      FOREACH operation = binding.get_operation;
+%][% INCLUDE Server/POD/Operation.tt %]
+[%      END %]
+
+[% head1 %] AUTHOR
+
+Generated by SOAP::WSDL on [% PERL %]print scalar localtime() [% END %]
+
+=pod