Clear token value when auth is disabled.

hexfusion · Jun 17, 2017 · c53c96d · c53c96d
1 parent 9963a74
commit c53c96d
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/.travis.yml b/.travis.yml
@@ -41,4 +41,4 @@ install:
 script:
   - perl Makefile.PL
   - make
-  - prove -b -r -s -j$(test-jobs) $(test-files)
+  - make test 
diff --git a/lib/Net/Etcd.pm b/lib/Net/Etcd.pm
@@ -171,7 +171,10 @@ authentication process and stored until no longer valid or username is changed.
 
 =cut
 
-has auth_token => ( is => 'rwp' );
+has auth_token => (
+    is      => 'rwp',
+    clearer => 1,
+);
 
 =head1 PUBLIC METHODS
 

diff --git a/lib/Net/Etcd/Auth.pm b/lib/Net/Etcd/Auth.pm
@@ -148,6 +148,7 @@ sub disable {
     confess 'root name and password required for ' . __PACKAGE__ . '->disable'
       unless ($self->password && $self->name);
     $self->request;
+    $self->etcd->clear_auth_token;
     return $self;
 }