NAME
WWW::Search::KacurCZ - Class for searching http://kacur.cz .
SYNOPSIS
use WWW::Search;
my $obj = WWW::Search->new('KacurCZ');
$obj->native_query($query);
my $maintainer = $obj->maintainer;
my $res_hr = $obj->next_result;
my $version = $obj->version;METHODS
For methods look to WWW::Search.
EXAMPLE
use strict;
use warnings;
use Data::Printer;
use WWW::Search::KacurCZ;
# Arguments.
if (@ARGV < 1) {
print STDERR "Usage: $0 match\n";
exit 1;
}
my $match = $ARGV[0];
# Object.
my $obj = WWW::Search->new('KacurCZ');
$obj->maximum_to_retrieve(1);
# Search.
$obj->native_query($match);
while (my $result_hr = $obj->next_result) {
p $result_hr;
}
# Output:
# Usage: /tmp/1Ytv23doz5 match
# Output with 'Čapek' argument:
# \ {
# author "Guillaume Apollinaire",
# cover_url "http://kacur.cz/data/USR_001_OBRAZKY/small_196566.JPG",
# old_price "2 000 Kč",
# price "1 000 Kč",
# publisher "Symposion",
# title "Kacíř a spol"
# url "http://kacur.cz/index.asp?menu=1123&record=140698",
# }DEPENDENCIES
Encode, LWP::UserAgent, Perl6::Slurp, Readonly, Text::Iconv, Web::Scraper, WWW::Search.
SEE ALSO
- WWW::Search
-
Virtual base class for WWW searches
- Task::WWW::Search::Antiquarian::Czech
-
Install the WWW::Search modules for Czech antiquarian bookstores.
REPOSITORY
https://github.com/michal-josef-spacek/WWW-Search-KacurCZ
AUTHOR
Michal Josef Špaček mailto:skim@cpan.org
LICENSE AND COPYRIGHT
© Michal Josef Špaček 2014-2023
BSD 2-Clause License
VERSION
0.02