NAME WWW::Search::KacurCZ - Class for searching http://kacur.cz . SYNOPSIS use WWW::Search::KacurCZ; 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 "native_setup_search($query)" Setup. "native_retrieve_some()" Get data. EXAMPLE # Pragmas. use strict; use warnings; # Modules. 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, Readonly, Text::Iconv, Web::Scraper, WWW::Search. SEE ALSO WWW::Search. REPOSITORY AUTHOR Michal Špaček LICENSE AND COPYRIGHT BSD license. VERSION 0.01