File Coverage

line	stmt	sub	pod	time	code
1	3	3		10	use utf8;
	3			4
	3			16
2					package Etcd3::Auth::Enable;
3
4	3	3		92	use strict;
	3			5
	3			42
5	3	3		9	use warnings;
	3			3
	3			59
6
7	3	3		9	use Moo;
	3			2
	3			12
8	3	3		578	use Types::Standard qw(Str Int Bool HashRef ArrayRef);
	3			3
	3			31
9	3	3		1900	use MIME::Base64;
	3			3
	3			139
10	3	3		14	use JSON;
	3			5
	3			24
11	3	3		306	use Data::Dumper;
	3			4
	3			125
12
13					with 'Etcd3::Role::Actions';
14
15	3	3		11	use namespace::clean;
	3			4
	3			24
16
17					=head1 NAME
18
19					Etcd3:Auth::Enable
20
21					=cut
22
23					our $VERSION = '0.001';
24
25					=head1 DESCRIPTION
26
27					Enable authentication
28
29					=head2 endpoint
30
31					=cut
32
33					has endpoint => (
34					is => 'ro',
35					isa => Str,
36					default => '/auth/enable'
37					);
38
39					=head2 json_args
40
41					arguments that will be sent to the api
42
43					=cut
44
45					has json_args => (
46					is => 'ro',
47					default => '{}',
48					);
49
50					=head2 init
51
52					=cut
53
54					sub init {
55	0	0	1		my ($self) = @_;
56	0				$self->json_args;
57	0				return $self;
58					}
59
60					1;