File Coverage

line	stmt	sub	pod	time	code
1	5	5		31	use utf8;
	5			8
	5			26
2					package Etcd3::User::Role;
3
4	5	5		178	use strict;
	5			13
	5			88
5	5	5		20	use warnings;
	5			10
	5			84
6
7	5	5		20	use Moo;
	5			10
	5			21
8	5	5		1284	use Types::Standard qw(Str Int Bool HashRef ArrayRef);
	5			10
	5			35
9
10					with 'Etcd3::Role::Actions';
11
12	5	5		4676	use namespace::clean;
	5			11
	5			29
13
14					=head1 NAME
15
16					Etcd3::User::Role
17
18					=cut
19
20					our $VERSION = '0.007';
21
22					=head1 DESCRIPTION
23
24					Use role
25
26					=cut
27
28					=head1 ACCESSORS
29
30					=head2 endpoint
31
32					=cut
33
34					has endpoint => (
35					is => 'ro',
36					isa => Str,
37					);
38
39					=head2 user
40
41					name of user
42
43					=cut
44
45					has user => (
46					is => 'ro',
47					isa => Str,
48					);
49
50					=head2 name
51
52					name of user
53
54					=cut
55
56					has name => (
57					is => 'ro',
58					isa => Str,
59					);
60
61					=head2 role
62
63					name of role
64
65					=cut
66
67					has role => (
68					is => 'ro',
69					isa => Str,
70					);
71
72					=head1 PUBLIC METHODS
73
74					=head2 grant
75
76					=cut
77
78					sub grant {
79	0	0	1		my $self = shift;
80	0				$self->{endpoint} = '/auth/user/grant';
81	0				$self->request;
82	0				return $self;
83					}
84
85					=head2 revoke
86
87					=cut
88
89					sub revoke {
90	0	0	1		my $self = shift;
91	0				$self->{endpoint} = '/auth/user/revoke';
92	0				$self->request;
93	0				return $self;
94					}
95
96					1;