Yet Another CPAN Grep

Google-Search ( R/RO/ROKR/Google-Search-0.028.tar.gz, ROKR, 2012; MetaCPAN )

Google-Search/lib/Google/Search.pm ( view source; MetaCPAN )

esult;
use Google::Search::Error;
use LWP::UserAgent;
require HTTP::Request::Common;
use JSON;

my $json = JSON->new;

BEGIN {
    use vars qw/ $Base %Service2URI /;
    $Base = 'http://ajax.googleapi

 "Malformed content: $content" unless $content =~ s/^.*?\(\[(.*)\]\)$/[$1]/g;
        my $data = $json->decode( $content );
        croak "Malformed content: $content" unless ref $data eq 'ARRAY' && $

Google-Search ( R/RO/ROKR/Google-Search-0.028.tar.gz, ROKR, 2012; MetaCPAN )

Google-Search/lib/Google/Search/Response.pm ( view source; MetaCPAN )

rch::Response;

use Any::Moose;
use Google::Search::Carp;

use Google::Search::Error;
use JSON; my $json = JSON->new;
use Try::Tiny;

has http_response => qw/ is ro required 1 isa HTTP::Response /;

h

nt = $json->decode( $content );
    } catch {
        @error = ( -1, "Unable to JSON parse content: $@" );
    };

    return $fail->( @error ) if @error;

    return $fail->( -1, "Unable to JSON pars