Acme-eng2kor

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  Any::Moose: 0
  Const::Fast: 0
  Encode: 0
  Getopt::Long: 0
  HTTP::Request: 0
  HTTP::Response: 0
  JSON: 0
  LWP::UserAgent: 0
  Pod::Usage: 0
  URI::Escape: 0
  namespace::autoclean: 0
  utf8: 0
version: v0.0.2

Makefile.PL  view on Meta::CPAN

    'Any::Moose' => '0',
    'Const::Fast' => '0',
    'Encode' => '0',
    'Getopt::Long' => '0',
    'HTTP::Request' => '0',
    'HTTP::Response' => '0',
    'JSON' => '0',
    'LWP::UserAgent' => '0',
    'Pod::Usage' => '0',
    'URI::Escape' => '0',
    'namespace::autoclean' => '0',
    'utf8' => '0'
  },
  'VERSION' => 'v0.0.2',
  'test' => {
    'TESTS' => 't/*.t'
  }
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {

lib/Acme/eng2kor.pm  view on Meta::CPAN

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::Response;
use LWP::UserAgent;
use namespace::autoclean;

const my $GOOGLE_TRANSLATE_API_URL => "http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=%s&langpair=%s";
const my @SUPPORT_LANG_TAGS => qw/ach af ak am ar az be bem bg bh bn br bs ca co cs cy da de el en eo es et eu fa fi fo fr fy ga gd gl gn gu ha haw hi hr ht hu hy ia id ig is it iw ja jw ka kg kk km kn ko ku ky la lg ln lo lt lua lv mfe mg mi mk ml m...

subtype 'LangTags'
    => as 'Str'
    => where { my $lang = $_; grep { /^$lang$/ } @SUPPORT_LANG_TAGS; };

has 'src' => (
    is => 'rw',

 view all matches for this distribution
 view release on metacpan -  search on metacpan