File Coverage

blib/lib/Yandex/Dictionary.pm

Criterion	Covered	Total	%
statement	24	165	14.5
branch	0	80	0.0
condition	0	27	0.0
subroutine	8	23	34.7
pod	15	15	100.0
total	47	310	15.1

package Yandex::Dictionary;

use strict;
use warnings;
use utf8;

use HTML::Entities qw{encode_entities};
use HTTP::Tiny;
use JSON;
use POSIX qw{:locale_h};
use URI::Escape qw{uri_escape_utf8};

my
$VERSION = '0.01';

my %valid_lang = map { $_ => 1 } qw{
   be-be be-ru bg-ru cs-en cs-ru da-en da-ru de-de de-en
   de-ru de-tr el-en el-ru en-cs en-da en-de en-el en-en
   en-es en-et en-fi en-fr en-it en-lt en-lv en-nl en-no
   en-pt en-ru en-sk en-sv en-tr en-uk es-en es-es es-ru
   et-en et-ru fi-en fi-fi fi-ru fr-en fr-fr fr-ru hu-hu
   hu-ru it-en it-it it-ru lt-en lt-lt lt-ru lv-en lv-ru
   mhr-ru mrj-ru nl-en nl-ru no-en no-ru pl-ru pt-en pt-ru
   ru-be ru-bg ru-cs ru-da ru-de ru-el ru-en ru-es ru-et
   ru-fi ru-fr ru-hu ru-it ru-lt ru-lv ru-mhr ru-mrj ru-nl
   ru-no ru-pl ru-pt ru-ru ru-sk ru-sv ru-tr ru-tt ru-uk
   sk-en sk-ru sv-en sv-ru tr-de tr-en tr-ru tt-ru uk-en
   uk-ru uk-uk
};

my %valid_default_ui = map { $_ => 1 } qw{ en ru tr };

my %valid_format = map { $_ => 1 } qw{ json xml };

my $default_format = 'json';

my $james_axl_result = sub
{
    my $self = shift;
    die "You must set API key\n" if (not defined $self->{ _key_ });
    die "You must set Text\n" if (not defined $self->{ _text_ });
    my $query = '/lookup?';
    my $post = 'key='.$self->{ _key_ }.'&text='.$self->{ _text_ }.'&lang='.$self->{_lang_}.'&ui='.$self->{_ui_};
    my $response = $self->{_http_}->get($self->{_base_} . '.json' . $query . $post);
    die "Invalid API key.\n" if ($response->{status} eq '401');
    die "Blocked API key.\n" if ($response->{status} eq '402');
    die "Exceeded the daily limit on the number of requests.\n" if ($response->{status} eq '403');
    die "The text size exceeds the maximum.\n" if ($response->{status} eq '413');
    die "The specified translation direction is not supported.\n" if ($response->{status} eq '501');
    die "Failed to get list of supported languages! (response code $response->{status})\n" unless ($response->{success});
    if (defined wantarray && length $response->{content}) {
        my $json_respond = JSON->new->utf8->decode($response->{content});
	return $json_respond->{def};
    }
};

#
## Set the default UI to Russian if the locale is Russian;
## Set the default UI to Turkish if the locale is Turkish;
## otherwise, set it to English.
##
#
(my $default_ui = setlocale(LC_CTYPE) || 'en') =~ s/_.*$//;
$default_ui = 'en' if (!exists $valid_default_ui{$default_ui});

sub new
{
    my $class = shift;
    my $self = {
	    _key_       =>    shift,
	    _text_      =>    shift,
	    _lang_      =>    shift,
	    _ui_        =>    shift || $default_ui,
	    _format_    =>    shift || $default_format,
	    _base_      =>    'https://dictionary.yandex.net/api/v1/dicservice' ,
	    _http_      =>    HTTP::Tiny->new,
    };

    $self->{_text_} = uri_escape_utf8($self->{_text_}) if (defined $self->{_text_});
    return bless $self, $class;
}

sub set_key
{
    my ($self,$key) = @_;
    $self->{_key_} = $key if (defined $key);
}

sub set_text
{
    my ($self,$test) = @_;
    $self->{_text_} = $test if (defined $test);
}

sub set_lang
{
    my ($self,$lang) = @_;
    $self->{_lang_} = $lang if (defined $lang && exists $valid_lang{$lang});
}

sub set_format
{
    my ($self,$format) = @_;
    $self->{_format_} = (defined $format && exists $valid_format{$format}) ? $format : $default_format;
}

sub set_ui
{
    my ($self,$ui) = @_;
    $self->{_ui_} = (defined $ui && exists $valid_default_ui{$ui}) ? $ui : $default_ui;
}

sub set_default_ui
{
    my ($self,$this_default_ui) = @_;
    $default_ui = $this_default_ui if (defined $this_default_ui && exists $valid_default_ui{$this_default_ui});
}

sub get_langs_list
{
    my $self = shift;
    die "You must set API key\n" if (not defined $self->{ _key_ });
    my $query = '/getLangs?';
    my $post = 'key='.$self->{_key_}.'&ui='.$self->{_ui_};
    $self->{_format_} = (defined $self->{_format_} && exists $valid_format{$self->{_format_}}) ? $self->{_format_} :$default_format;
    my $format =  ($self->{_format_} eq 'xml') ? '' : '.json';
    my $response = $self->{_http_}->get($self->{_base_} . $format . $query . $post);

    die "Invalid API key\n" if ($response->{status} eq '401');
    die "Blocked API key\n" if ($response->{status} eq '402');
    die "Failed to get list of supported languages! (response code $response->{status})\n" unless ($response->{success});

    if (length $response->{content}) {
        return $response->{content};
    }
}

sub james_axl_langs_list
{
    my $self = shift;
    die "You must set API key\n" if (not defined $self->{ _key_ });
    die "You must set Text\n" if (not defined $self->{ _text_ });
    my $query = '/getLangs?';
    my $post = 'key='.$self->{_key_}.'&ui='.$self->{_ui_};
    my $response = $self->{_http_}->get($self->{_base_} .'.json' . $query . $post);
    die "Invalid API key\n" if ($response->{status} eq '401');
    die "Blocked API key\n" if ($response->{status} eq '402');
    die "Failed to get list of supported languages! (response code $response->{status})\n" unless ($response->{success});
    if (defined wantarray && length $response->{content}) {
        my $json_respond = JSON->new->utf8->decode($response->{content});
	return (wantarray) ? @{ $json_respond } : scalar(@{ $json_respond });
    }
}

sub get_result
{
    my $self = shift;
    die "You must set API key\n" if (not defined $self->{ _key_ });
    die "You must set Text\n" if (not defined $self->{ _text_ });
    my $query = '/lookup?';
    my $post = 'key='.$self->{ _key_ }.'&text='.$self->{ _text_ }.'&lang='.$self->{_lang_}.'&ui='.$self->{_ui_};
    $self->{_format_} = $default_format if (defined $self->{_format_} && !exists $valid_format{$self->{_format_}});
    my $format =  ($self->{_format_} eq 'xml') ? '' : '.json';
    my $response = $self->{_http_}->get($self->{_base_} . $format . $query . $post);
    die "Invalid API key.\n" if ($response->{status} eq '401');
    die "Blocked API key.\n" if ($response->{status} eq '402');
    die "Exceeded the daily limit on the number of requests.\n" if ($response->{status} eq '403');
    die "The text size exceeds the maximum.\n" if ($response->{status} eq '413');
    die "The specified translation direction is not supported.\n" if ($response->{status} eq '501');
    die "Failed to get list of supported languages! (response code $response->{status})\n" unless ($response->{success});
    if (length $response->{content}) {
        return $response->{content};
    }
}

sub get_input_text_pos_ts
{
    my $self = shift;
    my $respond  = $self->$james_axl_result();
    my $index = undef;
    my $result = [];
    for ($index = 0; $index < scalar @{$respond} ; $index+=1){
	push @{$result}, {
		          'text' => ${$respond}[$index]->{text},
	                  'pos'  => ${$respond}[$index]->{pos},
			  'ts'  => ${$respond}[$index]->{ts}
	                 };
    }

    return (wantarray) ? @{ $result } : scalar(@{ $result });
}

# In English does not has 'gen'
sub get_result_tr_pos_gen
{
    my $self = shift;
    my $respond  = $self->$james_axl_result();
    my ($x,$y,$result) = (undef, undef, []);

    for ($x = 0; $x < scalar @{$respond} ; $x+=1){
        for ($y = 0; $y < scalar @{$respond->[$x]->{tr}} ; $y+=1) {
		push @{$result}, {
		              'text' => ${$respond}[$x]->{tr}[$y]->{text},
			      'pos'  => ${$respond}[$x]->{tr}[$y]->{pos},
			      'gen'  => ${$respond}[$x]->{tr}[$y]->{gen}
			     };
        }
    }

    return (wantarray) ? @{ $result } : scalar(@{ $result });
}

sub get_result_mean
{
    my $self = shift;
    my $respond  = $self->$james_axl_result();
    my ($x,$y,$z,$result) = (undef, undef, undef ,[]);
    for ($x = 0; $x < scalar @{$respond} ; $x+=1){
	for ($y = 0; $y < scalar @{$respond->[$x]->{tr}} ; $y+=1) {
	    if (defined ${$respond}[$x]->{tr}[$y]->{mean}[0]->{text}){
                for ($z = 0; $z < scalar @{$respond->[$x]->{tr}->[$y]->{mean}} ; $z+=1) {
                    push @{$result}, ${$respond}[$x]->{tr}[$y]->{mean}[$z]->{text};
                }
            }
	}
    }

    return (wantarray) ? @{ $result } : scalar(@{ $result });
}

sub get_result_syn
{
    my $self = shift;
    my $respond  = $self->$james_axl_result();
    my ($x,$y,$z,$result) = (undef, undef, undef ,[]);
    for ($x = 0; $x < scalar @{$respond} ; $x+=1){
        for ($y = 0; $y < scalar @{$respond->[$x]->{tr}} ; $y+=1) {
            if (defined ${$respond}[$x]->{tr}[$y]->{syn}[0]->{text}){
                for ($z = 0; $z < scalar @{$respond->[$x]->{tr}->[$y]->{syn}} ; $z+=1) {
                    push @{$result}, {
			    'text' => ${$respond}[$x]->{tr}[$y]->{syn}[$z]->{text},
			    'pos'  => ${$respond}[$x]->{tr}[$y]->{syn}[$z]->{pos},
			    'gen'  => ${$respond}[$x]->{tr}[$y]->{syn}[$z]->{gen}
		    }
                }
            }
        }
    }

    return (wantarray) ? @{ $result } : scalar(@{ $result });
}

sub get_result_eg
{
    my $self = shift;
    my $respond  = $self->$james_axl_result();
    my ($x,$y,$z,$result) = (undef, undef, undef ,[]);
    for ($x = 0; $x < scalar @{$respond} ; $x+=1){
        for ($y = 0; $y < scalar @{$respond->[$x]->{tr}} ; $y+=1) {
            if (defined ${$respond}[$x]->{tr}[$y]->{ex}[0]->{text}){
	        for ($z = 0; $z < scalar @{$respond->[$x]->{tr}->[$y]->{ex}} ; $z+=1) {
		    push @{$result}, {
		        'text' => ${$respond}[$x]->{tr}[$y]->{ex}[$z]->{text},
			'tr' => ${$respond}[$x]->{tr}[$y]->{ex}[$z]->{tr}[0]->{text}
		    }
		}
	    }
        }
    }

    return (wantarray) ? @{ $result } : scalar(@{ $result });
}

1;
__END__