Changeset 31594

Show
Ignore:
Timestamp:
03/27/09 08:33:48 (4 years ago)
Author:
daisuke
Message:

Fayland Lim's patch (slightly modified)

Location:
lang/perl/Cache-Memcached-libmemcached/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Cache-Memcached-libmemcached/trunk/lib/Cache/Memcached/libmemcached.pm

    r15111 r31594  
    213213} 
    214214 
     215sub get_multi { 
     216    my $self = shift; 
     217 
     218    my $namespace = $self->{namespace}; 
     219    my @keys = $namespace ? map { "$namespace$_" } @_ : @_; 
     220    my $hash = $self->SUPER::get_multi(@keys); 
     221    return $namespace ? +{ map { ($_ => $hash->{"$namespace$_"}) } @_ } : $hash; 
     222} 
     223 
    215224sub flush_all 
    216225{ 

  • lang/perl/Cache-Memcached-libmemcached/trunk/t/04_get_multi.t

    r5720 r31594  
    77        plan(skip_all => "Define MEMCACHED_SERVER (e.g. localhost:11211) to run this test"); 
    88    } else { 
    9         plan(tests => 6); 
     9        plan(tests => 10); 
    1010    } 
    1111    use_ok("Cache::Memcached::libmemcached"); 
    … …  
    4444 
    4545} 
     46 
     47{ 
     48    my $cache2 = Cache::Memcached::libmemcached->new( { 
     49        servers => [ $ENV{ MEMCACHED_SERVER } ], 
     50        namespace => "t$$" 
     51    } ); 
     52    isa_ok($cache, "Cache::Memcached::libmemcached"); 
     53     
     54    my @keys = ('A' .. 'Z'); 
     55    foreach my $key (@keys) { 
     56        $cache2->set($key, $key); 
     57    } 
     58 
     59    my $h = $cache2->get_multi(@keys); 
     60    ok($h); 
     61    isa_ok($h, 'HASH'); 
     62 
     63    my %expected = map { ($_ => $_) } @keys; 
     64    is_deeply( $h, \%expected, "got all the expected values"); 
     65}