Yet Another CPAN Grep

Lingua-Translate-Bing ( M/MI/MILOVIDOV/Lingua-Translate-Bing-0.04.tar.gz, MILOVIDOV, 2013; MetaCPAN )

Lingua-Translate-Bing/lib/Lingua/Translate/Bing.pm ( view source; MetaCPAN )


use strict;
use warnings;
use utf8;
use Carp;

use LWP::UserAgent;
use LWP::Protocol::https;
use JSON::XS;
use Time::HiRes qw(clock_gettime CLOCK_MONOTONIC);
use SOAP::Lite; #+trace => 'debug'; 

=he

    if ($response) {
        my $content = $response->content;
        my $json_xs = JSON::XS->new();
        $result = $json_xs->decode($content)->{'access_token'};
    }
    unless (defined($result)