Allow false values in $c->config->{authentication}{typekey}

[catagits/Catalyst-Authentication-Credential-HTTP-Proxy.git] / lib / Catalyst / Plugin / Authentication / Credential / TypeKey.pm

diff --git a/lib/Catalyst/Plugin/Authentication/Credential/TypeKey.pm b/lib/Catalyst/Plugin/Authentication/Credential/TypeKey.pm
index a776633..9165678 100644 (file)
--- a/lib/Catalyst/Plugin/Authentication/Credential/TypeKey.pm
+++ b/lib/Catalyst/Plugin/Authentication/Credential/TypeKey.pm
@@ -27,8 +27,8 @@ sub setup {
 
         my $typekey = Authen::TypeKey->new;
 
-        for (qw/expires key_cache key_url token version/) {
-            $typekey->$_( $config->{$_} || next );
+        for (grep { exists $config->{$_} } qw/expires key_cache key_url token version/) {
+            $typekey->$_( $config->{$_} );
         }
 
         $typekey;