Yet Another CPAN Grep

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

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

##############################################################
# Modules

use HTML::Entities;
use JSON;
use WWW::Mechanize;

###########################################################################


    my $json = $mech->content();

    return $self->handler("Failed to find that book on GoogleBooks website.")
        if($json eq 'bookdata({});');

    $json =~ s/^bookdata\(//;
    $json =~ s/\);

$//;

    my $code = decode_json($json);
#use Data::Dumper;
#print STDERR "\n# code=".Dumper($code);

    return $self->handler("Failed to find that book on GoogleBooks website.")
        unless($code