WWW::Search::Metapedia - class for searching online Encyclopedias
require WWW::Search; $search = new WWW::Search('Metapedia');
Silly class I made to sponge off a Encyclopedia meta search engine. Searches multi online Encyclopedias. Built off the old lycos.pm so to have 'RAW' output ability.
This class exports no public interface; all interaction should be done through WWW::Search objects.
To make new back-ends, see WWW::Search.
native_setup_search is called before we do anything. It initializes our private variables (which all begin with underscores) and sets up a URL to the first results page in {_next_url}.
native_setup_search
{_next_url}
native_retrieve_some is called (from WWW::Search::retrieve_some) whenever more hits are needed. It calls the LWP library to fetch the page specified by {_next_url}. It parses this page, appending any search hits it finds to {cache}. If it finds a ``next'' button in the text, it sets {_next_url} to point to the page for the next set of results, otherwise it sets it to undef to indicate we're done.
native_retrieve_some
WWW::Search::retrieve_some
{cache}
Looks OK to me.
based upon WWW::Search::Lycos.
WWW::Search::Lycos
This module adheres to the WWW::Search test routines.
WWW::Search
$search_engine = 'Metapedia'; $maintainer = 'Jim Smyser <jsmyser@bigfoot.com>'; $file = 'test/Metapedia/zero_result'; $query = $bogus_query; test($mode, $TEST_EXACTLY); $file = 'test/Metapedia/one_page_result'; $query = 'hydro' . 'celphy'; test($mode, $TEST_RANGE, 2, 15); $file = 'test/Metapedia/multi_page_result'; $query = 'Ast' . 'ronomy'; test($mode, $TEST_GREATER_THAN, 30);
Copyright (c) 1996-1998 University of Southern California. All rights reserved.
Redistribution and use in source and binary forms are permitted provided that the above copyright notice and this paragraph are duplicated in all such forms and that any documentation, advertising materials, and other materials related to such distribution and use acknowledge that the software was developed by the University of Southern California, Information Sciences Institute. The name of the University may not be used to endorse or promote products derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
To install WWW::Search, copy and paste the appropriate command in to your terminal.
cpanm
cpanm WWW::Search
CPAN shell
perl -MCPAN -e shell install WWW::Search
For more information on module installation, please visit the detailed CPAN module installation guide.