NAME

WWW::Google::CustomSearch::Page - Placeholder for Google JSON/Atom Custom Search Page.

VERSION

Version 0.08

DESCRIPTION

Provides the interface to the individual search page based on the search criteria.

METHODS

safe()

Returns the safety level of the search.

use strict; use warnings;
use WWW::Google::CustomSearch;

my $api_key = 'Your_API_Key';
my $cx      = 'Search_Engine_Identifier';
my $engine  = WWW::Google::CustomSearch->new(api_key => $api_key, cx => $cx);
my $result  = $engine->search("Google");
my $page    = $result->nextPage;
print "Safety Level: ", $page->safe, "\n";

count()

Returns the 'count' attribute of the search.

use strict; use warnings;
use WWW::Google::CustomSearch;

my $api_key = 'Your_API_Key';
my $cx      = 'Search_Engine_Identifier';
my $engine  = WWW::Google::CustomSearch->new(api_key => $api_key, cx => $cx);
my $result  = $engine->search("Google");
my $page    = $result->nextPage;
print "Page count: ", $page->count, "\n";

searchTerms()

Returns the 'searchTerms' attribute of the search.

use strict; use warnings;
use WWW::Google::CustomSearch;

my $api_key = 'Your_API_Key';
my $cx      = 'Search_Engine_Identifier';
my $engine  = WWW::Google::CustomSearch->new(api_key => $api_key, cx => $cx);
my $result  = $engine->search("Google");
my $page    = $result->nextPage;
print "Search Terms: ", $page->searchTerms, "\n";

startIndex()

Returns the 'startIndex' attribute of the search.

use strict; use warnings;
use WWW::Google::CustomSearch;

my $api_key = 'Your_API_Key';
my $cx      = 'Search_Engine_Identifier';
my $engine  = WWW::Google::CustomSearch->new(api_key => $api_key, cx => $cx);
my $result  = $engine->search("Google");
my $page    = $result->nextPage;
print "Start Index: ", $page->startIndex, "\n";

title()

Returns the 'title' attribute of the search.

use strict; use warnings;
use WWW::Google::CustomSearch;

my $api_key = 'Your_API_Key';
my $cx      = 'Search_Engine_Identifier';
my $engine  = WWW::Google::CustomSearch->new(api_key => $api_key, cx => $cx);
my $result  = $engine->search("Google");
my $page    = $result->nextPage;
print "Title: ", $page->title, "\n";

totalResults()

Returns the 'totalResults' attribute of the search.

use strict; use warnings;
use WWW::Google::CustomSearch;

my $api_key = 'Your_API_Key';
my $cx      = 'Search_Engine_Identifier';
my $engine  = WWW::Google::CustomSearch->new(api_key => $api_key, cx => $cx);
my $result  = $engine->search("Google");
my $page    = $result->nextPage;
print "Total Results: ", $page->totalResults, "\n";

inputEncoding()

Returns the 'inputEncoding' attribute of the search.

use strict; use warnings;
use WWW::Google::CustomSearch;

my $api_key = 'Your_API_Key';
my $cx      = 'Search_Engine_Identifier';
my $engine  = WWW::Google::CustomSearch->new(api_key => $api_key, cx => $cx);
my $result  = $engine->search("Google");
my $page    = $result->nextPage;
print "Input Encoding: ", $page->inputEncoding, "\n";

outputEncoding()

Returns the 'outputEncoding' attribute of the search.

use strict; use warnings;
use WWW::Google::CustomSearch;

my $api_key = 'Your_API_Key';
my $cx      = 'Search_Engine_Identifier';
my $engine  = WWW::Google::CustomSearch->new(api_key => $api_key, cx => $cx);
my $result  = $engine->search("Google");
my $page    = $result->nextPage;
print "Output Encoding: ", $page->outputEncoding, "\n";

fetch()

Perform a fresh search based on the previous input data and returns WWW::Google::CustomSearch::Result object.

use strict; use warnings;
use WWW::Google::CustomSearch;

my $api_key = 'Your_API_Key';
my $cx      = 'Search_Engine_Identifier';
my $engine  = WWW::Google::CustomSearch->new(api_key => $api_key, cx => $cx);
my $result  = $engine->search("Google");
my $page    = $result->nextPage;
my $next    = $page->fetch;

AUTHOR

Mohammad S Anwar, <mohammad.anwar at yahoo.com>

BUGS

Please report any bugs or feature requests to bug-www-google-customsearch at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WWW-Google-CustomSearch. 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 WWW::Google::CustomSearch::Page

You can also look for information at:

LICENSE AND COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

DISCLAIMER

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.