File Coverage

blib/lib/WebService/Yamli.pm

Criterion	Covered	Total	%
statement	45	45	100.0
branch	3	4	75.0
condition	3	3	100.0
subroutine	10	10	100.0
pod	1	1	100.0
total	62	63	98.4

use strict;
use warnings;
package WebService::Yamli;

# ABSTRACT: Perl wrapper for Yamli's Arabic translation service
our $VERSION = '0.003'; # VERSION

use v5.14;

use Carp;
use LWP::UserAgent;
use URI;
use JSON;
use Carp;


=pod

=encoding utf8

=head1 NAME

WebService::Yamli - Perl wrapper for Yamli's Arabic transliteration service

=head1 SYNOPSIS

    use WebService::Yamli;

    # non-OO:
    my $tr = WebService::Yamli::tr('perl di 7aga la6eefa aslan');
    say $tr; # the whole sentence transliterated

    my @tr = WebService::Yamli::tr('perl');
    say "@tr"; # a list of candidates


=head1 DESCRIPTION

Franco-Arabic, aka Chat Arabic, Arabizy, is a transliteration of Arabic, commonly used on the internet. It restricts itself to the ASCII charset and substitutes numbers for the Arabic characters which have no equivalent in Latin.

This Module is an interface to L's API.

=head1 IMPLEMENTATION

It seems there's no way to feed the Yamli API more than one word, so currently each word results in a HTTP request.

=head1 METHODS AND ARGUMENTS

=over 4

=item tr($arg)

Transliterates argument. Returns transliterated string, except if input is a single word and subroutine is in list context, in that case it returns a candidate list

=cut

sub tr {
    my @words = split ' ', shift;

    my ($favorite, @candidates);
    for my $word (@words) {
        my $url = URI->new('http://api.yamli.com/transliterate.ashx');
        $url->query_form(
            word => $word,
            account_id => '000000',
            prot => 'http:',
            hostname => 'metacpan.org',
            path => '/pod/WebService::Yamli',
            build => '5447'
        );

        my $ua = LWP::UserAgent->new;
        { no strict 'vars'; $ua->agent(__PACKAGE__ . "/$VERSION"); }

        my $response = $ua->get($url);
        croak "Error: ", $response->status_line unless $response->is_success;

        my $decoded = decode_json  $response->content;
        @candidates = split /\|/, $decoded->{r};

        # strip away the candidate score
        @candidates = map { s(/\d$)()r } @candidates;
        $favorite .= $candidates[0] . ' ';
    }

    return @candidates if @words == 1 && wantarray;

    local $/ = ' ';
    chomp $favorite;
    return $favorite;
}





1;
__END__