File Coverage

blib/lib/Etcd/Lock.pm

Criterion	Covered	Total	%
statement	8	27	29.6
branch	0	6	0.0
condition	0	3	0.0
subroutine	3	7	42.8
pod	0	3	0.0
total	11	46	23.9

package Etcd::Lock;
$Etcd::Lock::VERSION = '0.02';
use 5.012;

use Net::Etcd;
use boolean;

sub new {
    my $c = shift;
    my %a = @_;
    my %b;
    $b{etcd} = Net::Etcd->new( { host => $a{host} } );
    foreach (qw/host key/) {
        $b{$_} = $a{$_};
    }
    return bless \%b, $c;
}

sub lock () {
    my $s = shift;
    return $s->_lock_unlock( true );
}

sub unlock () {
    my $s = shift;;
    return $s->_lock_unlock( false );
}

sub _lock_unlock ( ) {
    my $s = shift;
    my $nval = shift;
    my $k = $s->{key};

    my $val = $s->{etcd}->range( { key => $k } )->get_value;
    return $val unless defined $nval;
    return false if defined $val && $val eq $nval;
    $nval
      ? $s->{etcd}->put( { key => $k, value => $nval } )
      : $s->{etcd}->deleterange( { key => $k } );
    return true;
}

1;

=pod

=head1 NAME

Etcd::Lock - Lock based on etcd

=for html







=head1 VERSION

version 0.02

=head1 SYNOPSIS

  use Etcd::Lock

  my $etcdLock = Etcd::Lock->new(host => 'host.name.com', key => 'lock_key');

=head1 DESCRIPTION

Etcd::Lock is a lock based on etcd

=encoding UTF-8

=head1 BUGS/CONTRIBUTING

Please report any bugs through the web interface at L

If you want to contribute changes or otherwise involve yourself in development, feel free to fork the Git repository from
L.

=head1 SUPPORT

You can find this documentation with the perldoc command too.

    perldoc etcd-lock

=head1 AUTHOR

Emiliano Bruni

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2022 by Emiliano Bruni.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

__END__