CPAN::Groonga

mmon::Numeric qw/PositiveInt SingleDigit/;

use WWW::Mechanize;
use URI::QueryParam;
use URI;
use JSON;

has 'mechanize' => (
    is      => 'ro',
    isa     => 'WWW::Mechanize',
    lazy    => 1,
  

redicate => 'has_results' );

has 'output' => ( is => 'ro', isa => NonEmptySimpleStr, default => 'json' );

=head2 url_builder

Build the URL to do the "get" with all arguments that you pass
for the a

rch

Make the search, and decode the JSON, if don't have the attribute
"query", it return nothing.

=cut

sub get_search {
    my $self = shift;
    my $json = JSON->new->allow_nonref;

    # if haven