CPAN::Groonga

search";
    }

    $args{format} ||= 'json';
    $args{count} = 10;
    die 'only json format supported, xml patches welcome'
      unless $args{format} eq 'json';

    $args{filter} = '-porn';

    

se - Response class for Yahoo BOSS searches

=cut

use strict;
use warnings;

use Any::Moose;
use JSON::XS ();
use Data::Dumper;

use WebService::Yahoo::BOSS::Response::Web;

has 'count'        => ( i

ct]', required => 1 );

sub parse {
    my ( $class, $content ) = @_;

    my $response = JSON::XS::decode_json($content);

    my $rc = $response->{bossresponse}->{responsecode};

    die "Boss respo