Changeset 8525

Timestamp:

03/30/08 23:28:25 (5 years ago)

Author:

daisuke

Message:

lang/perl/Cache-Memcached-libmemcached; Add hashing_algorithm/distribution_method docs and tests

Location:

lang/perl/Cache-Memcached-libmemcached/trunk

Files:

• lib/Cache/Memcached/libmemcached.pm (modified) (2 diffs)
• t/15_distribution_method.t (added)
• t/16_hashing_algorithm.t (added)

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

@@ -74 +74 @@
     # behavior options
     $self->set_no_block( $args->{no_block} ) if exists $args->{no_block};
+    $self->set_hashing_algorithm( $args->{hashing_algorithm} ) if exists $args->{hashing_algorithm};
+    $self->set_distribution_method( $args->{distribution_method} ) if exists $args->{distribution_method};
 
     return $self;
@@ -251 +253 @@
   use Cache::Memcached::libmemcached qw(MEMCACHED_DISTRIBUTION_CONSISTENT);
   $memd->set_distribution_method(MEMCACHED_DISTRIBUTION_CONSISTENT());
-  
+
+  # Extra constructor options that are not in Cache::Memcached
+  # See Memcached::libmemcached::constants for a list of available options
+  my $memd = Cache::Memcached::libmemcached->new({
+    ...,
+    no_block            => $boolean,
+    distribution_method => $distribution_method,
+    hashing_algorithm   => $hashing_algorithm,
+  });
 
 =head1 DESCRIPTION