efer its documentation for installation.
=back
=cut
use 5.010;
use strict;
use warnings;
use JSON::XS;
use REST::Client;
use HTTP::Status qw/:is/;
use Try::Tiny;
use Aspect;
use Avro::Schema;
u
->new( %config );
$self->{_CLIENT}->addHeader('Content-Type', 'application/vnd.schemaregistry.v1+json');
$self->{_CLIENT}->{_ERROR} = undef; # will be set in case of unsuccessfully responses
$se
eturn undef
unless defined($res);
return $res
if ref($res) eq 'HASH';
return try {
decode_json($res);
} catch {
$res;
}
}
sub _encode_error {
{
error_code => $_[0],
message => $_[1