Yet Another CPAN Grep

AnyEvent-KVStore-Etcd ( E/EI/EINHVERFR/AnyEvent-KVStore-Etcd-0.1.0.tar.gz, EINHVERFR, 2023; MetaCPAN )

AnyEvent-KVStore-Etcd/lib/AnyEvent/KVStore/Etcd.pm ( view source; MetaCPAN )

use strict;
use warnings;
use Net::Etcd;
use Types::Standard qw(Str Int Bool);
use Moo;
use JSON 'decode_json';
use MIME::Base64 'decode_base64';
with 'AnyEvent::KVStore::Driver';

=head1 NAME

AnyEve

 and returns a JSON document payload.

=cut

sub read($$) {
    my ($self, $key) = @_;
    my $value =  $self->cnx->range({key => $key })->{response}->{content};
    $value = decode_json($value)->{kvs

_;
    my $value =  $self->cnx->range({key => $key })->{response}->{content};
    $value = decode_json($value)->{kvs}->[0]->{value};
    return defined $value;;
}

=head2 list($pfx)

Returns a list of