Yet Another CPAN Grep

Museum-MetropolitanMuseumArt ( R/RS/RSHEAT/Museum-MetropolitanMuseumArt-0.03.tar.gz, RSHEAT, 2023; MetaCPAN )

Museum-MetropolitanMuseumArt/lib/Museum/MetropolitanMuseumArt.pm ( view source; MetaCPAN )

package Museum::MetropolitanMuseumArt;

use 5.34.0;
use strictures 2;

use JSON::MaybeXS;
use LWP::UserAgent;
use Moo;
use URI::QueryParam;

use namespace::clean;

=head1 NAME

Museum::MetropolitanMus

my $req = HTTP::Request->new(
        GET => $url,
        [
            'Accept' => 'application/json; charset=UTF-8',
        ]
    );

    my $res = $ua->request($req);

    if ( !$res->is_success

olitan Museum 'objects' API: " . $res->status_line . "\n";
    }

    my $json = JSON::MaybeXS->new();
    my $content = $json->decode( $res->decoded_content );
    return $content->{objectIDs};
}

=h