File Coverage

blib/lib/WWW/FindConcept/Sources.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

# $Id: Sources.pm,v 1.6 2004/01/06 06:57:09 cvspub Exp $
package WWW::FindConcept::Sources;

use strict;

our %source;


@{$source{google_glossary}} =
    (
     'http://labs.google.com/glossary?q={%query%}&btnG=Google+Glossary+Search',
     ,
     qr'(.+?).+?'

    );


@{$source{altavista}} =
    (
     'http://altavista.com/web/results?q={%query%}&kgs=0&kls=1&avkw=aapt',
     ,
     qr'(.+?)<\/A>.+?'

    );


@{$source{lycos}} =
    (
     'http://search.lycos.com/default.asp?lpv=1&loc=searchhp&query={%query%}'
     ,
     qr!
32

    );


@{$source{search}} =
    (
     'http://www.search.com/search?q={%query%}',
     ,
     qr!(.+?)!

    );

@{$source{ask}} =
    (
     'http://web.ask.com/web?q={%query%}&qsrc=1&o=0',
     ,
     qr!
    );

@{$source{scirus}} =
    (
     'http://www.scirus.com/srsapp/search?q={%query%}&ds=jnl&ds=web&g=s&t=all'
     ,
     qr'(.+?)<\/font><\/a>'

    );

@{$source{genieknows}} =
    (
     'http://feed.genieknows.com/search/search_html.jsp?q={%query%}&client_id=ASE_6605&Submit=Search+Again'
     ,
     qr'client_id=ASE_6605">(.+?)<\/a><\/font>'

    );





1;
__END__