Yet Another CPAN Grep

Yandex-Dictionary ( B/BR/BRNFLK/Yandex-Dictionary-0.02.tar.gz, BRNFLK, 2017; MetaCPAN )

Yandex-Dictionary/lib/Yandex/Dictionary.pm ( view source; MetaCPAN )


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.02';

my %valid_

ult_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

$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 "Bloc