/ 
WebService-Async-Microsoft-TranslateV2-0.01
/ WebService::Async::Microsoft::TranslateV2

NAME

WebService::Async::Microsoft::TranslateV2 - Subclass of WebService::Async that has a simple interface to Microsoft Translate Service.

SYNOPSIS

Simple usage

SOURCE

use WebService::Async::Microsoft::TranslateV2;
my $translator = WebService::Async::Microsoft::TranslateV2->new(
  app_id => '[YOUR BING APPLICATION ID]',
);
$translator->source_language('en');
$translator->set_destination_languages(qw(it fr));
$translator->set_message( message1 => 'apple' );
$translator->set_message( message2 => 'banana' );
$translator->set_message( message3 => 'orange' );
$translator->translate(
    on_each_translation => sub {
        my ($self, $id, $res) = @_;
        print $res;
    },
    on_translation_complete => sub {
        my ($self, $all_res) = @_;
        print $all_res;
    },
);

RESULTS

<?xml version="1.0" encoding="UTF-8"?>
<result id="message3">
    <translated lang="it">arancione</translated>
</result>

<?xml version="1.0" encoding="UTF-8"?>
<result id="message1">
    <translated lang="fr">Apple</translated>
</result>

<?xml version="1.0" encoding="UTF-8"?>
<result id="message2">
    <translated lang="fr">la banane</translated>
</result>

<?xml version="1.0" encoding="UTF-8"?>
<result id="message2">
    <translated lang="it">banana</translated>
</result>

<?xml version="1.0" encoding="UTF-8"?>
<result id="message3">
    <translated lang="fr">orange</translated>
</result>

<?xml version="1.0" encoding="UTF-8"?>
<result id="message1">
    <translated lang="it">mela</translated>
</result>

<?xml version="1.0" encoding="UTF-8"?>
<results>
    <result id="message2">
        <translated lang="it">banana</translated>
        <translated lang="fr">la banane</translated>
    </result>
    <result id="message3">
        <translated lang="it">arancione</translated>
        <translated lang="fr">orange</translated>
    </result>
    <result id="message1">
        <translated lang="it">mela</translated>
        <translated lang="fr">Apple</translated>
    </result>
</results>

Using custom templates

SOURCE

use WebService::Async::Microsoft::TranslateV2;
my $translator = WebService::Async::Microsoft::TranslateV2->new(
  app_id => '[YOUR BING APPLICATION ID]',
);

$translator->single_template(get_data_section('single'));
$translator->whole_template(get_data_section('whole'));
$translator->critical_error_template(get_data_section('critical_error'));

$translator->source_language('en');
$translator->set_destination_languages(qw(it fr));
$translator->set_message( message1 => 'apple' );
$translator->set_message( message2 => 'banana' );
$translator->set_message( message3 => 'orange' );
$translator->translate(
    on_each_translation => sub {
        my ($self, $id, $res) = @_;
        print $res;
    },
    on_translation_complete => sub {
        my ($self, $all_res) = @_;
        print $all_res;
    },
);

__DATA__  
@@ single
?= Text::MicroTemplate::encoded_string '<?xml version="1.0" encoding="UTF-8"?>'
? my ($id, $lang, $message) = @_
<result key="<?= $id ?>">
    <translated lang="<?= $lang ?>"><?= $message ?></translated>
</result>
?= "\0"

@@ whole
?= Text::MicroTemplate::encoded_string '<?xml version="1.0" encoding="UTF-8"?>'
? my ($self, $messages) = @_;
<results>
? for my $key ($self->all_messages_ids) {
    <result key="<?= $key ?>">
?   for my $lang ($self->all_destination_languages) {
?       my $text = $self->get_translated_message(id => $key, language => $lang);
        <translated lang="<?= $lang ?>"><?= $text ?></translated>
?   }
    </result>
? }
</results>
?= "\0"

@@ critical_error
CRITICAL ERROR

RESULTS

<?xml version="1.0" encoding="UTF-8"?>
<result key="message3">
    <translated lang="it">arancione</translated>
</result>

<?xml version="1.0" encoding="UTF-8"?>
<result key="message1">
    <translated lang="fr">Apple</translated>
</result>

<?xml version="1.0" encoding="UTF-8"?>
<result key="message2">
    <translated lang="fr">la banane</translated>
</result>

<?xml version="1.0" encoding="UTF-8"?>
<result key="message2">
    <translated lang="it">banana</translated>
</result>

<?xml version="1.0" encoding="UTF-8"?>
<result key="message3">
    <translated lang="fr">orange</translated>
</result>

<?xml version="1.0" encoding="UTF-8"?>
<result key="message1">
    <translated lang="it">mela</translated>
</result>

<?xml version="1.0" encoding="UTF-8"?>
<results>
    <result key="message2">
        <translated lang="it">banana</translated>
        <translated lang="fr">la banane</translated>
    </result>
    <result key="message3">
        <translated lang="it">arancione</translated>
        <translated lang="fr">orange</translated>
    </result>
    <result key="message1">
        <translated lang="it">mela</translated>
        <translated lang="fr">Apple</translated>
    </result>
</results>

DESCRIPTION

WebService::Async::Microsoft::TranslateV2 is subclass of WebService::Async that has a simple interface to Microsoft Translate Service.

METHODS

source_language

Sets the source language.

$translator->source_language('en');

set_destination_languages

Sets destination languages.

$translator->set_destination_languages(qw(it fr));

set_message

Sets messages that you want to translate.

$translator->set_message( message1 => 'apple' );

translate

$translator->translate(
    on_each_translation => sub {
        my ($self, $id, $res) = @_;
    },
    on_translation_complete => sub {
        my ($self, $all_res) = @_;
    },
);

AUTHOR

keroyon <keroyon@cpan.org>

SEE ALSO

WebService::Async

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.