| Lines 87-93
          sub new {
      
      
        Link Here | 
        
          | 87 |     $self->{namespace} .= ":$subnamespace:"; | 87 |     $self->{namespace} .= ":$subnamespace:"; | 
        
          | 88 |  | 88 |  | 
        
          | 89 |     if ( $self->{'default_type'} eq 'memcached' | 89 |     if ( $self->{'default_type'} eq 'memcached' | 
          
            
              | 90 |         && can_load( modules => { 'Cache::Memcached::Fast' => undef } ) | 90 |         && can_load( modules => { 'Cache::Memcached::Fast::Safe' => undef } ) | 
        
          | 91 |         && _initialize_memcached($self, @servers) | 91 |         && _initialize_memcached($self, @servers) | 
        
          | 92 |         && defined( $self->{'memcached_cache'} ) ) | 92 |         && defined( $self->{'memcached_cache'} ) ) | 
        
          | 93 |     { | 93 |     { | 
  
    | Lines 120-128
          sub _initialize_memcached {
      
      
        Link Here | 
        
          | 120 |       . join( ', ', @servers ) | 120 |       . join( ', ', @servers ) | 
        
          | 121 |       . " with " | 121 |       . " with " | 
        
          | 122 |       . $self->{'namespace'}; | 122 |       . $self->{'namespace'}; | 
          
            
              | 123 |     # Cache::Memcached::Fast doesn't allow a default expire time to be set | 123 |     # Cache::Memcached::Fast::Safe doesn't allow a default expire time to be set | 
        
          | 124 |     # so we force it on setting. | 124 |     # so we force it on setting. | 
          
            
              | 125 |     my $memcached = Cache::Memcached::Fast->new( | 125 |     my $memcached = Cache::Memcached::Fast::Safe->new( | 
        
          | 126 |         { | 126 |         { | 
        
          | 127 |             servers            => \@servers, | 127 |             servers            => \@servers, | 
        
          | 128 |             compress_threshold => 10_000, | 128 |             compress_threshold => 10_000, |