The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

WWW::Search::ValentinskaCZ - Class for searching http://valentinska.cz .

SYNOPSIS

use WWW::Search;

my $obj = WWW::Search->new('ValentinskaCZ');
$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.

EXAMPLE1

use strict;
use warnings;

use Data::Printer;
use WWW::Search;

# Arguments.
if (@ARGV < 1) {
        print STDERR "Usage: $0 match\n";
        exit 1;
}
my $match = $ARGV[0];

# Object.
my $obj = WWW::Search->new('ValentinskaCZ');
$obj->maximum_to_retrieve(1);

# Search.
$obj->native_query($match);
while (my $result_hr = $obj->next_result) {
       p $result_hr;
}

# Output like:
# Usage: /tmp/1Ytv23doz5 match

# Output with 'Čapek' argument like:
# \ {
#     author   "Larbaud, Valery; obálka: J. Čapek",
#     image    "http://www.valentinska.cz/image/cache/data/valentinska/book_144061_1-1024x1024.jpg",
#     price    "450Kč",
#     title    "A. O. Barnbooth. Jeho důvěrný deník",
#     url      "http://www.valentinska.cz/144061-a-o-barnbooth-jeho-duverny-denik"
# }

EXAMPLE2

use strict;
use warnings;

use WWW::Search;

# Object.
my $obj = WWW::Search->new('ValentinskaCZ');

print $obj->maintainer."\n";

# Output:
# Michal Josef Spacek <skim@cpan.org>

DEPENDENCIES

Encode, LWP::UserAgent, Perl6::Slurp, Readonly, URI, 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-ValentinskaCZ

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

© Michal Josef Špaček 2014-2023

BSD 2-Clause License

VERSION

0.06