view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

provides:
  Microsoft::Translator:
    file: lib/Microsoft/Translator.pm
    version: '0.001'
requires:
  Clone: '0'
  Cpanel::JSON::XS: '0'
  Data::Dumper: '0'
  HTTP::Tiny: '0'
  List::Util: '1.33'
  Ref::Util: '0'
  UUID::Tiny: '0'
  feature: '0'
  perl: '5.030'
  strict: '0'
  warnings: '0'
resources:
  bugtracker: https://github.com/Troglodyne-Internet-Widgets/Microsoft-Translator-Perl/issues
  homepage: https://github.com/Troglodyne-Internet-Widgets/Microsoft-Translator-Perl
  repository: https://github.com/Troglodyne-Internet-Widgets/Microsoft-Translator-Perl.git
version: '0.001'

Makefile.PL  view on Meta::CPAN

  "DISTNAME" => "Microsoft-Translator",
  "LICENSE" => "mit",
  "MIN_PERL_VERSION" => "5.030",
  "NAME" => "Microsoft::Translator",
  "PREREQ_PM" => {
    "Clone" => 0,
    "Cpanel::JSON::XS" => 0,
    "Data::Dumper" => 0,
    "HTTP::Tiny" => 0,
    "List::Util" => "1.33",
    "Ref::Util" => 0,
    "UUID::Tiny" => 0,
    "feature" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "VERSION" => "0.001",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "Clone" => 0,
  "Cpanel::JSON::XS" => 0,
  "Data::Dumper" => 0,
  "HTTP::Tiny" => 0,
  "List::Util" => "1.33",
  "Ref::Util" => 0,
  "UUID::Tiny" => 0,
  "feature" => 0,
  "strict" => 0,
  "warnings" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};

lib/Microsoft/Translator.pm  view on Meta::CPAN

# ABSTRACT: Client wrapper for Microsoft Translator's REST API

use strict;
use warnings;

no warnings qw{experimental};
use feature qw{signatures state};

use Clone;
use Ref::Util qw{is_arrayref is_hashref};
use UUID::Tiny;
use HTTP::Tiny;
use Cpanel::JSON::XS;
use List::Util;

use Data::Dumper;


sub new( $class, $secret_key, $region, $debug ) {
    return bless({ key => $secret_key, region => $region, debug => $debug }, $class);