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