Changeset 5721 for lang/perl/Cache-Memcached-libmemcached

Timestamp:

01/29/08 00:17:28 (5 years ago)

Author:

daisuke

Message:

lang/perl/Cache-Memcached-libmemcached; Add set_no_block support

Location:

lang/perl/Cache-Memcached-libmemcached/trunk

Files:

• lib/Cache/Memcached/libmemcached.pm (modified) (2 diffs)
• t/14_no_block.t (added)

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

@@ -74 +74 @@
         $self->_mk_callbacks()
     );
+
+    # behavior options
+    $self->set_no_block( $args->{no_block} ) if exists $args->{no_block};
 
     return $self;
@@ -187 +190 @@
 sub stats { die "stats() not implemented" }
 
+sub is_no_block
+{
+    my $self = shift;
+    Memcached::libmemcached::memcached_behavior_get(
+        $self->[MEMD_BACKEND], 
+        Memcached::libmemcached::MEMCACHED_BEHAVIOR_NO_BLOCK(),
+    );
+}
+
+sub set_no_block
+{
+    my $self = shift;
+    Memcached::libmemcached::memcached_behavior_set(
+        $self->[MEMD_BACKEND], 
+        Memcached::libmemcached::MEMCACHED_BEHAVIOR_NO_BLOCK(),
+        $_[0]
+    );
+}
+
 1;