note
milovidov
<p>
Lingua::Translate::Bing is my module :)
</p>
<p>
Now, i want refactor it for using SOAP protocol instead of HTTP.
</p>
<p>
I tried SOAP::Simple with this code:
<p>
<code>
sub getLanguagesForTranslate {
my ($self) = @_;
my $token = $self->getAccessToken();
my $soap = SOAP::Simple->new('http://api.microsofttranslator.com/V2/Soap.svc');
my $answer = $soap->GetLanguagesForTranslate("appId" => "");
return $answer->result;
}
</code>
</p>
</p>
<p>
But i had this error:
<p>
<code>
Remote fetching not implemented yet at /home/Muxa/perl5/lib/perl5/SOAP/Simple/Trait.pm line 73.
SOAP::Simple::Trait::_fetch_wsdl('Moose::Meta::Class::__ANON__::SERIAL::1=HASH(0x4332df8)', 'http://api.microsofttranslator.com/V2/Soap.svc') called at /home/Muxa/perl5/lib/perl5/SOAP/Simple/Trait.pm line 67
SOAP::Simple::Trait::_coerce_wsdl('Moose::Meta::Class::__ANON__::SERIAL::1=HASH(0x4332df8)', 'http://api.microsofttranslator.com/V2/Soap.svc') called at /home/Muxa/perl5/lib/perl5/SOAP/Simple/Trait.pm line 12
SOAP::Simple::Trait::add_wsdl('Moose::Meta::Class::__ANON__::SERIAL::1=HASH(0x4332df8)', 'http://api.microsofttranslator.com/V2/Soap.svc') called at /home/Muxa/perl5/lib/perl5/SOAP/Simple.pm line 29
SOAP::Simple::new('SOAP::Simple', 'http://api.microsofttranslator.com/V2/Soap.svc') called at Lingua/Translation/Bing.pm line 135
</code>
</p>
</p>
1015590
1015612