Skip to content

michal-josef-spacek/WWW-Search-KacurCZ

Repository files navigation

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>

    <http://skim.cz>

LICENSE AND COPYRIGHT
    © Michal Josef Špaček 2014-2023

    BSD 2-Clause License

VERSION
    0.03