Yet Another CPAN Grep

Locale-Utils-Autotranslator ( S/ST/STEFFENW/Locale-Utils-Autotranslator-1.016.tar.gz, STEFFENW, 2021; MetaCPAN )

Locale-Utils-Autotranslator/lib/Locale/Utils/Autotranslator/ApiMymemoryTranslatedNet.pm ( view source; MetaCPAN )

arnings;
use HTML::Entities qw(decode_entities);
use HTTP::Request::Common qw(GET);
use JSON qw(decode_json);
use LWP::UserAgent;
use Moo;
use MooX::StrictConstructor;
use URI;
use namespace::

or die $response->status_line, "\n";
    my $json = decode_json( $response->decoded_content );
    $json->{responseStatus} eq '200'
        or die $json->{responseDetails}, "\n";

    # Not clear

 why decode_entities here.
    # Looks like bad interface.
    return decode_entities( $json->{responseData}->{translatedText} );
}

__PACKAGE__->meta->make_immutable;

1;

__END__

=head1