Yet Another CPAN Grep

WebService-DetectLanguage ( N/NE/NEILB/WebService-DetectLanguage-0.04.tar.gz, NEILB, 2019; MetaCPAN )

WebService-DetectLanguage/lib/WebService/DetectLanguage.pm ( view source; MetaCPAN )

ebService::DetectLanguage;
$WebService::DetectLanguage::VERSION = '0.04';
use 5.010;
use Moo;
use JSON::MaybeXS;

has key => (
    is       => 'ro',
    required => 1,
);

has ua => (
    is      => '

cess}) {
        die "failed $response->{status} $response->{reason}\n";
    }

    return decode_json($response->{content});
}

sub detect
{
    my ($self, $string) = @_;

    my ($result) = $self->m

:DetectLanguage::Result;
    require WebService::DetectLanguage::Language;

    my $data = decode_json($response->{content});
    my @results;

    foreach my $result_set (@{ $data->{data}{detections}