#!~/perl5/perlbrew/perls/perl-5.28.1/bin/perl
use Modern::Perl;
use WWW::Scraper::ISBN;

my $scraper = WWW::Scraper::ISBN->new();
$scraper->drivers("LOC", "ISBNnu");

my $isbn = "9780134511184";
my $record = $scraper->search($isbn);
if($record->found)
{
    print "Book ".$record->isbn." found by driver ".$record->found_in."\n";
    my $book = $record->book;
    print $book->{'title'};
    print $book->{'author'};
}
else
{
    print $record->error;
}


##</code><code>##

Cannot start LOC query session.
isbn.nu website appears to be unavailable.
##</code><code>##

sub search {
    my ($self,$isbn) = @_;
    my %data;

    $self->found(0);
    $self->book(undef);

    my $post_url = "https://isbn.nu/".$isbn;
    my $mech = WWW::Mechanize->new();
    $mech->agent_alias( 'Linux Mozilla' );
    $mech->add_header( 'Accept-Encoding' => undef );

    eval { $mech->get( $post_url ) };
    return $self->handler("isbn.nu website appears to be unavailable.")
        if($@ || !$mech->success() || !$mech->content());