CPAN::Groonga

Blekko JSON APIs

=cut

use strict;
use warnings;
no warnings qw( uninitialized );

use LWP::UserAgent;
use LWP::Protocol;
use HTTP::Request;
use List::Util qw( min );
use Time::HiRes;
use JSON;

use 

 $url = sprintf( $template, $self->{scheme}, $self->{server},
                       urlencode( "/json $q" ), $self->{auth}, $self->{source}, $ps, $p );

    my $req = HTTP::Request->new( 'GET', $url 

->new( '', "http failure, code is ".$resp->code, $resp->code );
    }

    my $answer = my_decode_json( $resp->content ); # XXX does this need an eval?

    if ( defined $answer->{status} && $answer->

lekko::QueryResult;

sub new
{
    my $class = shift;
    my $self = bless {}, $class;

    my ( $json, $http_code ) = @_;

    $self->{http_code} = $http_code;

    if ( $http_code !~ /^2/ )
    {
  

->{total_num} = 0;
        return $self;
    }

    my $answer = WebService::Blekko::my_decode_json( $json );

    $self->{raw} = $answer;

    if ( defined $answer->{ERROR} )
    {
        # {suggest

, $class;

    my ( $json, $error, $http_code ) = @_;

    $self->{http_code} = $http_code;
    $self->{error} = $error;

    my $answer = WebService::Blekko::my_decode_json( $json ); # XXX needs eval