File Coverage

blib/lib/Google/ISBNNumbers.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	4	8	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	2	0.0
total	40	48	83.3

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 required
	croak "Google API Key is required to use Google::ISBNNumbers.\n".
		"Please set up a key at https://console.cloud.google.com/apis/credentials" unless $google_api_key;

	# become 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_blessed,
	}, $class;

	return $self;
}

# method to query the open library for an ISBN number
sub lookup_isbn {
	my ($self, $isbn_number) = @_;

	# can't do much with a valid number
	$isbn_number =~ s/\-|\s//g;
	croak "Valid ISBN number required for lookup_book()" unless $isbn_number =~ /^97/ && $isbn_number !~ /\D/;

	# do the lookup!
	my $response = HTTP::Tiny->new->get( 'https://www.googleapis.com/books/v1/volumes?q=isbn:'.$isbn_number.'&key='.$self->{api_key} );

	# alert if failure
	croak "Lookup failed: ".$response->{reason} unless $response->{success};

	# translate JSON to data struct
	my $results = $self->{json_coder}->decode( $response->{content} );

	# must be an array
	croak "Invalid results returned.  Check your API key." unless ref($$results{items}) eq 'ARRAY';

	# we have a book: simplify and return
	my $book_info = $$results{items}[0]{volumeInfo};
	return {
		'title' => $$book_info{title},
		'author_name' => $$book_info{authors}[0],
		'publication_date' => $$book_info{publishedDate},
		'description' => $$book_info{description},
		'cover_link' => $$book_info{imageLinks}{smallThumbnail},
	};

}

1;
__END__