view release on metacpan or  search on metacpan

eg/etcd_series.pl  view on Meta::CPAN

use strict;
use warnings;
use EV;
use EV::Future;
use EV::Etcd;
use feature 'say';

# Initialize Etcd client
# Note: Ensure etcd is running on localhost:2379
my $etcd = EV::Etcd->new(
    endpoints => ['127.0.0.1:2379'],
);

my @steps = (
    { key => '/config/step1', val => 'init' },
    { key => '/config/step2', val => 'processing' },
    { key => '/config/step3', val => 'complete' },
);

say "Performing sequential etcd operations...";