The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

WWW::Search::AntikvariatJudaicaCZ - Class for searching http://antikvariat-judaica.cz .

SYNOPSIS

 use WWW::Search::AntikvariatJudaicaCZ;
 my $obj = WWW::Search->new('AntikvariatJudaicaCZ');
 $obj->native_query($query);
 my $maintainer = $obj->maintainer; 
 my $res_hr = $obj->next_result;
 my $version = $obj->version;

METHODS

native_setup_search($query)
 Setup.
native_retrieve_some()
 Get data.

EXAMPLE

 # Pragmas.
 use strict;
 use warnings;

 # Modules.
 use Data::Printer;
 use WWW::Search::AntikvariatJudaicaCZ;

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

 # Object.
 my $obj = WWW::Search->new('AntikvariatJudaicaCZ');
 $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 like:
 # \ {
 #     author      "Kolektiv autorů",
 #     cover_url   "http://www.antikvariat-judaica.cz/sites/default/files/imagecache/product_list/2012-10/121003_29660_scan10055.jpg",
 #     price       "100,00 Kč",
 #     title       "J. B. Čapek. Jubilejní sborník 1903 - 2003.",
 #     url         "http://antikvariat-judaica.cz//kniha/j-b-capek-jubilejni-sbornik-1903-2003"
 # }

DEPENDENCIES

LWP::UserAgent, Readonly, Web::Scraper, WWW::Search.

SEE ALSO

WWW::Search.

REPOSITORY

https://github.com/tupinek/WWW-Search-AntikvariatJudaicaCZ

AUTHOR

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

http://skim.cz

LICENSE AND COPYRIGHT

BSD license.

VERSION

0.02