NAME
    Google::Search - Interface to the Google AJAX Search API

VERSION
    Version 0.024

SYNOPSIS
        my $search = Google::Search->Web( query => "rock" );
        my $result = $search->first;
        while ( $result ) {
            print $result->rank, " ", $result->uri, "\n";
            $result = $result->next;
        }

    You can also use the single-argument-style invocation:

        Google::Search->Web( "query" )

    The following kinds of searches are supported

        Google::Search->Local( ... )
        Google::Search->Video( ... )
        Google::Search->Blog( ... )
        Google::Search->News( ... )
        Google::Search->Image( ... )
        Google::Search->Patent( ... )

    You can also take advantage of each service's specialized interface

        # The search below specifies the latitude and longitude:
        $search = Google::Search->Local( query => { q => "rock", sll => "33.823230,-116.512110" }, ... );

        my $result = $search->first;
        print $result->streetAddress, "\n";

    You can supply an API key and referrer (referer) if you have them

        my $key = ... # This should be a valid API key, gotten from:
                      # http://code.google.com/apis/ajaxsearch/signup.html

        my $referrer = "http://example.com/" # This should be a valid referer for the above key

        $search = Google::Search->Web(
            key => $key, referrer => $referrer, # "referer =>" Would work too
            query => { q => "rock", sll => "33.823230,-116.512110" }
        );

DESCRIPTION
    Google::Search is an interface to the Google AJAX Search API
    (<http://code.google.com/apis/ajaxsearch/>).

    Currently, their API looks like it will fetch you the top 64 results for
    your search query.

    According to the Terms of Service, you need to sign up for an API key
    here: <http://code.google.com/apis/ajaxsearch/signup.html>

Shortcut usage for a specific service
  Google::Search->Web
  Google::Search->Local
  Google::Search->Video
  Google::Search->Blog
  Google::Search->News
  Google::Search->Book
  Google::Search->Image
  Google::Search->Patent
USAGE
  Google::Search->new( ... )
    Prepare a new search object (handle)

    You can configure the search by passing the following to "new":

        query           The search phrase to submit to Google
                        Optionally, this can also be a hash of parameters to submit. You can
                        use the hash form to take advantage of each service's varying interface.
                        Make sure to at least include a "q" parameter with your search

        service         The service to search under. This can be any of: web,
                        local, video, blog, news, book, image, patent

        start           Optional. Start searching from "start" rank instead of 0.
                        Google::Search will skip fetching unnecessary results

        key             Optional. Your Google AJAX Search API key (see Description)

        referrer        Optional. A referrer that is valid for the above key
                        For legacy purposes, "referer" is an acceptable spelling

    Both "query" and "service" are required

  $search->first
    Returns a Google::Search::Result representing the first result in the
    search, if any.

    Returns undef if nothing was found

  $search->next
    An iterator for $search. Will the return the next result each time it is
    called, and undef when there are no more results.

    Returns a Google::Search::Result

    Returns undef if nothing was found

  $search->result( <rank> )
    Returns a Google::Search::Result corresponding to the result at <rank>

    These are equivalent:

        $search->result( 0 )

        $search->first

  $search->all
    Returns Google::Search::Result list which includes every result Google
    has returned for the query

    In scalar context an array reference is returned, a list otherwise

    An empty list is returned if nothing was found

  $search->match( <code> )
    Returns a Google::Search::Result list

    This method will iterate through each result in the search, passing the
    result to <code> as the first argument. If <code> returns true, then the
    result will be included in the returned list

    In scalar context this method returns the number of matches

  $search->first_match( <code> )
    Returns a Google::Search::Result that is the first to match <code>

    This method will iterate through each result in the search, passing the
    result to <code> as the first argument. If <code> returns true, then the
    result will be returned and iteration will stop.

  $search->error
    Returns a Google::Search::Error if there was an error with the last
    search

    If you receive undef from a result access then you can use this routine
    to see if there was a problem

        warn $search->error->reason;

        warn $search->error->http_response->as_string;

        # Etc, etc.

    This will return undef if no error was encountered

AUTHOR
    Robert Krimen, "<rkrimen at cpan.org>"

SEE ALSO
    REST::Google::Search

BUGS
    Please report any bugs or feature requests to "bug-google-search at
    rt.cpan.org", or through the web interface at
    <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Google-Search>. I will
    be notified, and then you'll automatically be notified of progress on
    your bug as I make changes.

SUPPORT
    You can find documentation for this module with the perldoc command.

        perldoc Google::Search

    You can also look for information at:

    *   RT: CPAN's request tracker

        <http://rt.cpan.org/NoAuth/Bugs.html?Dist=Google-Search>

    *   AnnoCPAN: Annotated CPAN documentation

        <http://annocpan.org/dist/Google-Search>

    *   CPAN Ratings

        <http://cpanratings.perl.org/d/Google-Search>

    *   Search CPAN

        <http://search.cpan.org/dist/Google-Search>

ACKNOWLEDGEMENTS
COPYRIGHT & LICENSE
    Copyright 2008 Robert Krimen, all rights reserved.

    This program is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself.