Allow false values in $c->config->{authentication}{typekey}
Yuval Kogman [Mon, 21 Nov 2005 22:53:33 +0000 (22:53 +0000)]
lib/Catalyst/Plugin/Authentication/Credential/TypeKey.pm

index a776633..9165678 100644 (file)
@@ -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;