Yet Another CPAN Grep

WebService-Europeana ( P/PM/PMAYR/WebService-Europeana-0.0.4.tar.gz, PMAYR, 2020; MetaCPAN )

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

 WebService::Europeana;

use warnings;
use strict;

use version; our $VERSION = qv('0.0.3');

use JSON;
use Log::Any;
use LWP::UserAgent;
use Moo;
use Method::Signatures;
use Try::Tiny;
use URL::Encod

e = undef;
    my $json_result  = undef;
    my $result_ref   = undef;

    $query_string = sprintf( "%s%s?wskey=%s&rows=%s&query=%s&profile=%s",
        $self->api_url, "search.json", $self->wskey, $

uery_string );

    $response = $ua->get($query_string);

    if ($response->is_success) {
      $json_result = $response->decoded_content;  # or whatever
    }
    else {
      $self->log->errorf("Pr