Changeset 11305

Timestamp:

05/09/08 23:51:30 (5 years ago)

Author:

daisuke

Message:

fix namespace support

Files:

• lang/perl/Cache-Memcached-libmemcached/trunk/lib/Cache/Memcached/libmemcached.pm (modified) (3 diffs)

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

@@ -37 +37 @@
     foreach my $method qw(set add replace prepend append cas) {
         eval <<"        EOSUB";
-            sub $method { shift->memcached_$method(\@_[0, 1], int(\$_[2] || 0)) }
+            sub $method { 
+                my \$self = shift;
+                \$self->memcached_$method(\$self->{namespace} . \$_[0], \$_[1], int(\$_[2] || 0))
+            }
         EOSUB
         die if $@;
@@ -76 +79 @@
     $self->set_hashing_algorithm( $args->{hashing_algorithm} ) if exists $args->{hashing_algorithm};
     $self->set_distribution_method( $args->{distribution_method} ) if exists $args->{distribution_method};
+
+    $self->{namespace} = $args->{namespace} || '';
 
     return $self;
@@ -101 +106 @@
         $self->memcached_server_add_unix_socket( $server );
     }
+}
+
+sub get
+{
+    my $self = shift;
+    my $key  = shift;
+    $self->SUPER::get($self->{namespace} . $key, @_);
 }