File Coverage

blib/lib/Net/Etcd/User.pm

Criterion	Covered	Total	%
statement	27	40	67.5
branch	0	2	0.0
condition			n/a
subroutine	9	12	75.0
pod	3	3	100.0
total	39	57	68.4

use utf8;
package Net::Etcd::User;

use strict;
use warnings;

use Moo;
use Carp;
use Net::Etcd::User::Role;
use Types::Standard qw(Str Int Bool HashRef ArrayRef);
use Data::Dumper;

with 'Net::Etcd::Role::Actions';

use namespace::clean;

=head1 NAME

Net::Etcd::User

=cut

our $VERSION = '0.020';

=head1 DESCRIPTION

User class

=cut

=head1 ACCESSORS

=head2 endpoint

=cut

has endpoint => (
    is       => 'rwp',
    isa      => Str,
);

=head2 name

name of user

=cut

has name => (
    is       => 'ro',
    isa      => Str,
    required => 1,
);

=head2 password

=cut

has password => (
    is       => 'ro',
    isa      => Str,
);

=head1 PUBLIC METHODS

=head2 add

    $etcd->user({ name =>'foo' password => 'bar' })->add

=cut

sub add {
    my $self = shift;
    $self->{endpoint} = '/auth/user/add';
    confess 'password required for ' . __PACKAGE__ . '->add'
      unless $self->{password};
    $self->request;
    return $self;
}

=head2 delete

    $etcd->user({ name =>'foo' })->delete

=cut

sub delete {
    my $self = shift;
    $self->{endpoint} = '/auth/user/delete';
    $self->request;
    return $self;
}


=head2 changepw

    $etcd->user({ name =>'foo' password => 'bar' })->changepw

=cut

sub changepw {
    my $self = shift;
    $self->{endpoint} = '/auth/user/changepw';
    $self->request;
    return $self;
}

1;