NAME

Net::Google::Cache - simple OOP-ish interface to the Google SOAP API for cached documents

SYNOPSIS

 use Net::Google::Cache;
 my $cache = Net::Google::Cache(\%args);

 $cache->url("http://aaronland.net);
 print $cache->get();

DESCRIPTION

Provides a simple OOP-ish interface to the Google SOAP API for cached documents.

This package is used by Net::Google.

PACKAGE METHODS

__PACKAGE__->new(\%args)

Valid arguments are :

• key

  string. A Google API key.

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

• url

  string.

• http_proxy

  url.

  Get/set the URL for proxy-ing HTTP request.

  Returns a string.

• debug

  Valid options are:

  • boolean

    If true prints debugging information returned by SOAP::Lite to STDERR

  • coderef.

    Your own subroutine for munging the debugging information returned by SOAP::Lite.

The object constructor in Net::Google 0.53, and earlier, expected a GoogleSearchService object as its first argument followed by a hash reference of argument. Versions 0.6 and higher are backwards compatible.

Returns an object. Woot!

OBJECT METHODS

$obj->key($string)

Get/set the Google API key for this object.

$obj->http_proxy($url)

Get/set the HTTP proxy for this object.

Returns a string.

$pkg->url($url)

Set the cached URL to fetch from the Google servers.

Returns a string. Returns an undef if there was an error.

$pkg->get()

Fetch the requested URL from the Google servers.

Returns a string. Returns undef if there was an error.

$obj->queries_exhausted()

Returns true or false depending on whether or not the current in-memory session has exhausted the Google API 1000 query limit.

VERSION

1.0

DATE

$Date: 2005/03/26 20:49:03 $

AUTHOR

Aaron Straup Cope

TO DO

• Add hooks to get method to strip out Google headers and footers from cached pages.

SEE ALSO

Net::Google

LICENSE

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

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

cpanm Net::Google

perl -MCPAN -e shell
install Net::Google