Yet Another CPAN Grep

WWW-Scraper-ISBN-OpenLibrary_Driver ( B/BA/BARBIE/WWW-Scraper-ISBN-OpenLibrary_Driver-0.10.tar.gz, BARBIE, 2019; MetaCPAN )

WWW-Scraper-ISBN-OpenLibrary_Driver/lib/WWW/Scraper/ISBN/OpenLibrary_Driver.pm ( view source; MetaCPAN )

chanize;
use JSON;

###########################################################################
# Constants

use constant SEARCH => 'http://openlibrary.org/api/books?jscmd=data&format=json&bibkeys=ISB

e unavailable.")
        if($@ || !$mech->success() || !$mech->content());

    my $code = decode_json($mech->content());
#use Data::Dumper;
#print STDERR "\n# code=".Dumper($code);

    return $self-

html = $mech->content();
#print STDERR "\n# html=[\n$html\n]\n";

    # catch any data not in the JSON
    ($data->{height},$data->{width},$data->{depth})    
                       = $html =~ m!<dt>D