The cache object to use if you want to provide your own. It should be an
instance of C<Cache::*> and follow the same interface as L<Cache::Memcache>.
+=back
+
=cut
sub set_in_cache {
$args->{'timeout'} = '600' unless defined( $args->{'timeout'} );
$args->{'inprocess'} = '0' unless defined( $args->{'inprocess'} );
- unless ( lc( $args->{'cache_type'} ) eq 'null' ) {
+ unless ( $args->{cache_type} and lc( $args->{cache_type} ) eq 'null' ) {
$args->{'cache'} = $self;
$args->{'cache_type'} ||= $ENV{'CACHING_SYSTEM'};
}