/ 
Net-Google-0.3.1
River stage one • 2 direct dependents • 2 total dependents
/ Net::Google

NAME

Net::Google

SYNOPSIS

use Net::Google;
use constant LOCAL_GOOGLE_KEY => "********************************";

my $google = Net::Google->new(key=>LOCAL_GOOGLE_KEY);
my $search = $google->search();

$search->query(qw(aaron straup cope));
$search->lr(qw(en fr));
$search->ie("utf8");
$search->oe("utf8");
$search->starts_at(5);
$search->max_results(15);

map { print $_->title()."\n"; } @{$search->results()};

DESCRIPTION

Provides a simple OOP-ish interface to the Google SOAP API

Google methods

$google = Net::Google->new(%args)

Valid arguments are :

key

String.

debug

Boolean

$google->search(%args)

Valid arguments are :

key

String. Google API key. If none is provided then the key passed to the parent Net::Google object will be used.

starts_at

Int. First result number to display. Default is 0.

max_results

Int. Number of results to return. Default is 10.

lr

String or array reference. Language restrictions.

ie

String or array reference. Input encoding.

oe

String or array reference. Output encoding.

safe

Boolean.

filter

Boolean.

Returns a Net::Google::Search object. Returns undef if there was an error.

Private Methods

$pkg->_soap($service,%args)

$pkg->_service($service)

VERSION

0.3.1

DATE

April 13, 2002

AUTHOR

Aaron Straup Cope

SEE ALSO

http://www.google.com/apis

Net::Google::Search

TO DO

  • Add some sort of functionality for managing multiple keys. Sort of like what is describe here :

    http://aaronland.net/weblog/archive/4204

  • Finish adding other services.

LICENSE

Copyright (c) 2002, Aaron Straup Cope. All Rights Reserved.

This is free software, you may use it and distribute it under the same terms as Perl itself.