Thanks for the pointer to
https://metacpan.org/module/SOAP::Server#SOAP::Server::ParametersSo, essentially all I have to do is add the following to the top of my module and it adds a SOAP::SOM object to the variables passed to any method called as a SOAP service.
use vars qw(@ISA); @ISA = qw(Exporter SOAP::Server::Parameters);
The additional variable allows access to the envelope which has a whole load of useful stuff in there including access to the request. And access to the request can be done like in the following example
sub mymethod{ my $envelope = pop(@_); my $sample_id = $envelope->dataof("//sample_id")->value if(defined + $envelope->dataof("//sample_id")); my $match_id = $envelope->dataof("//match_id")->value if(defined $ +envelope->dataof("//match_id")); }
This is great as that means I can do my own verifying of the request data.
Thanks again for the pointer.In reply to Re^2: Reading the SOAP Request (SOAP::Server::Parameters)
by markdibley
in thread Reading the SOAP Request
by markdibley
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |