CPAN::Groonga

blessed/;
use Module::Loaded;
use Module::Load;
use Params::Validate qw/validate :types/;
use JSON;
use LWP::UserAgent;
use Log::Any;

our $VERSION = '1.1';

has 'server' => (is => 'ro', req

    'Content-Type' => 'application/json-rpc',
                                          Content => encode_json({
                                              jsonrpc => '2.0',
                    

          $error, $response->code, $response->message);
    }

    my $decoded = eval { decode_json($response->decoded_content) };

    if (my $error = $@) {
        # no good either
        cr

o;

use strict;
use warnings;
use 5.010;
use Carp;
use autodie;
use utf8;

use Moo;
use JSON;
extends qw/Zabbix7::API::CRUDE/;

sub id {
    my ($self, $value) = @_;
    if (defined $va

       $self->_prefix('ids') => [ $self->id ],
            globalmacro => $self->globalp ? JSON::true : JSON::false,
            $self->_extension
        }
    )->[0];
    croak(sprintf(q{%s cla

       $self->_prefix('ids') => [ $self->id ],
            globalmacro => $self->globalp ? JSON::true : JSON::false,
            countOutput => 1,
        }
    );
    Log::Any->get_logger->debug