Yet Another CPAN Grep

Acme-eng2kor ( A/AA/AANOAA/Acme-eng2kor-v0.0.2.tar.gz, AANOAA, 2011; MetaCPAN )

Acme-eng2kor/lib/Acme/eng2kor.pm ( view source; MetaCPAN )

orean Translator


use utf8;
use Any::Moose;
use Any::Moose '::Util::TypeConstraints';
use JSON qw/decode_json/;
use Const::Fast;
use URI::Escape qw/uri_escape_utf8/;
use HTTP::Request;
use HTTP::Resp

src . '|' . $self->dst);
    my $json = $self->get_json($escaped_uri);
    $self->translated($json->{responseData}{translatedText});
    return $json;
}


sub get_json {
    my ($self, $url) = @_;

 = $ua->request($req);
    die $res->status_line, "\n" unless $res->is_success;
    return decode_json($res->content);
}

__PACKAGE__->meta->make_immutable;


1;

__END__
=pod

=encoding utf-8

=head1