Yet Another CPAN Grep

Google-ISBNNumbers ( E/EC/ECHERNOF/Google-ISBNNumbers-1.00.tar.gz, ECHERNOF, 2021; MetaCPAN )

Google-ISBNNumbers/lib/Google/ISBNNumbers.pm ( view source; MetaCPAN )

package Google::ISBNNumbers;

use HTTP::Tiny;
use Cpanel::JSON::XS;
use Carp;
use strict;
use warnings;

our $VERSION = "1.00";

sub new {
	my ($class, $google_api_key) = @_;
	
	# the API key is requi

 self, with an HTTP::Tiny and Cpanel::JSON objects
	my $self = bless {
		'api_key' => $google_api_key,
		'http' => HTTP::Tiny->new,
		'json_coder' => Cpanel::JSON::XS->new->utf8->allow_nonref->allow_b

up failed: ".$response->{reason} unless $response->{success};
	
	# translate JSON to data struct
	my $results = $self->{json_coder}->decode( $response->{content} );
	
	# must be an array
	croak "Inval