| 
      
            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,  |