# NAME Mojolicious::Plugin::SOAP::Server - implement a SOAP service # SYNOPSIS ```perl use Mojolicious::Lite; use Mojo::File 'curfile'; plugin 'SOAP::Server' => { wsdl => curfile->sibling('nameservice.wsdl'), xsds => [curfile->sibling('nameservice.xsd')], controller => SoapCtrl->new(x => '1'), endPoint => '/SOAP' }; app->start; package SoapCtrl; use Mojo::Base -base,-signatures; has 'x' => 2; sub getCountries ($self,$server,$params,$controller) { return { country => [qw(Switzerland Germany), $self->x] }; } sub getNamesInCountry ($self,$server,$params,$controller) { my $name = $params->{parameters}{country}; $controller->log->debug("Test Message"); if ($name eq 'Die') { die { status => 401, text => 'Unauthorized' }; } return { name => [qw(A B C),$name] }; } ``` # DESCRIPTION The [Mojolicious::Plugin::SOAP::Server](https://metacpan.org/pod/Mojolicious%3A%3APlugin%3A%3ASOAP%3A%3AServer) is a thin wrapper around [XML::Compile::SOAP::Daemon](https://metacpan.org/pod/XML%3A%3ACompile%3A%3ASOAP%3A%3ADaemon) which makes it pretty simple to implement SOAP services in perl. The plugin supports the following configuration options: - wsdl A wsdl filename with definitions for the services provided - xsds An array pointer with xsd files for the data types used in the wsdl. - controller A mojo Object whose methods match the service names defined in the wsdl file. ```perl sub methodName ($self,$server,$params,$controller) { ``` see example folder for inspiration. - default\_cb A default callback to be called if the requested method does not exist in the controller. - endPoint Where to 'mount' the SOAP service. # ACKNOWLEDGEMENT This is really just a very thin layer on top of Mark Overmeers great [XML::Compile::SOAP::Daemon](https://metacpan.org/pod/XML%3A%3ACompile%3A%3ASOAP%3A%3ADaemon) module. Thanks Mark! # AUTHOR Tobias Oetiker,  # COPYRIGHT Copyright OETIKER+PARTNER AG 2019 # LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10 or, at your option, any later version of Perl 5 you may have available.