view release on metacpan or  search on metacpan

lib/WWW/Scraper/ISBN/Waterstones_Driver.pm  view on Meta::CPAN

# Modules

use WWW::Mechanize;
use JSON::XS;

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

use constant REFERER => 'https://www.waterstones.com';
use constant SEARCH  => 'https://www.waterstones.com/index/search?term=';
my ($URL1,$URL2) = ('http://www.waterstones.com/book/','/[^?]+\?b=\-3\&t=\-26\#Bibliographicdata\-26');

#--------------------------------------------------------------------------

###########################################################################
# Public Interface

=head1 METHODS

=over 4