Я использовал комбинацию чтения WSDL и выгрузки SOAP::Lite
объектов, так как я мог их изготовить.
Ниже приведен способ, которым я смог получить доход от SOAP::Lite
. Имейте в виду, что я работаю над некоторыми ошибками в SOAP::Lite
, избегая вызова SOAP::Schema::load
и избегая неприязни SL к более чем одной определенной службе в WSDL, где она любезно ухмыляется.
use strict;
use warnings;
use Data::Dumper qw<Dumper>;
use SOAP::Lite; # trace => 'all'; # <- trace can help
my $schema = SOAP::Schema->new( schema_url => $destination_URL )->parse();
my $services = $schema->services();
my $defintion;
foreach my $service ( values %$services ) {
$definition = $service->{$method_name};
}
print Dumper( $definition );
Большинство переменных, которые не определены выше, являются вещами, которые вы должны будете предоставить.