Lines Matching refs:key
65 my ($key, $orig_flags, $orig_val) = @_;
66 my ($flags, $val, $cas) = $mc->get($key);
72 my ($key, $exp, $orig_flags, $orig_value) = @_;
73 $mc->set($key, $orig_value, $orig_flags, $exp);
74 $check->($key, $orig_flags, $orig_value);
78 my $key = shift;
79 my $rv =()= eval { $mc->get($key) };
85 my ($key, $when) = @_;
86 $mc->delete($key, $when);
87 $empty->($key);
315 my $key = "silentreplace";
317 $empty->($key);
321 $mc->add($key, "xval", 831, 0);
322 $check->($key, 831, 'xval');
324 $mc->send_silent(::CMD_REPLACEQ, $key, 'somevalue', 7278552, $extra, 0);
325 $check->($key, 829, 'somevalue');
330 my $key = "silentdelete";
331 $empty->($key);
332 $mc->set($key, "some val", 19, 0);
333 $mc->send_silent(::CMD_DELETEQ, $key, '', 772);
334 $empty->($key);
339 my $key = "silentincr";
341 $empty->($key);
342 $mc->silent_incrdecr(::CMD_INCREMENTQ, $key, 0, 0, 0);
343 is($mc->incr($key, 0), 0, "First call is 0");
345 $mc->silent_incrdecr(::CMD_INCREMENTQ, $key, 8, 0, 0);
346 is($mc->incr($key, 0), 8);
351 my $key = "silentdecr";
353 $empty->($key);
354 $mc->silent_incrdecr(::CMD_DECREMENTQ, $key, 0, 185, 0);
355 is($mc->incr($key, 0), 185);
357 $mc->silent_incrdecr(::CMD_DECREMENTQ, $key, 8, 0, 0);
358 is($mc->incr($key, 0), 177);
378 my $key = "appendkey";
380 $set->($key, 8, 19, $value);
381 $mc->_append_prepend(::CMD_APPEND, $key, " more");
382 $check->($key, 19, $value . " more");
387 my $key = "prependkey";
389 $set->($key, 8, 19, $value);
390 $mc->_append_prepend(::CMD_PREPEND, $key, "prefixed ");
391 $check->($key, 19, "prefixed " . $value);
396 my $key = "appendqkey";
398 $set->($key, 8, 19, $value);
399 $mc->send_silent(::CMD_APPENDQ, $key, " more", 7284492);
400 $check->($key, 19, $value . " more");
405 my $key = "prependqkey";
407 $set->($key, 8, 19, $value);
408 $mc->send_silent(::CMD_PREPENDQ, $key, "prefixed ", 7284492);
409 $check->($key, 19, "prefixed " . $value);
425 my $key = "some_key_$_";
428 print $sock "set $key 0 0 $biglen\r\n$big\r\n";
430 my ($f, $v, $c) = $mc->get($key);
505 my $key = "x" x 365;
507 $mc->get($key, 'should die', 10, 10);
536 my ($cmd, $key, $val, $opaque, $extra_header, $cas) = @_;
539 my $keylen = length($key);
556 my $full_msg = $msg . $extra_header . $key . $val;
563 my ($cmd, $key, $val, $opaque, $extra_header, $cas) = @_;
565 my $full_msg = $self->build_command($cmd, $key, $val, $opaque, $extra_header, $cas);
583 my ($cmd, $key, $val, $opaque, $extra_header, $cas) = @_;
585 $self->send_command($cmd, $key, $val, $opaque, $extra_header, $cas);
594 my ($cmd, $key, $value) = @_;
596 $empty->($key);
598 $mc->send_silent($cmd, $key, $value, 7278552, $extra, 0);
599 $check->($key, 82, $value);
647 my ($cmd, $key, $val, $extra_header, $cas) = @_;
651 $self->send_command($cmd, $key, $val, $opaque, $extra_header, $cas);
674 my ($cmd, $key, $amt, $init, $exp) = @_;
676 my ($data, $rcas) = $self->_do_command($cmd, $key, '',
694 my ($cmd, $key, $amt, $init, $exp) = @_;
697 $mc->send_silent($cmd, $key, '', $opaque,
703 my $key = shift;
706 $self->send_command(::CMD_STAT, $key, '', $opaque, '', $cas);
726 my $key = shift;
727 my ($rv, $cas) = $self->_do_command(::CMD_GET, $key, '', '');
763 my ($key, $expire) = @_;
766 return $self->_do_command(::CMD_TOUCH, $key, '', $extra_header, $cas);
771 my $key = shift;
774 my ($rv, $cas) = $self->_do_command(::CMD_GAT, $key, '', $extra_header);
794 my ($key, $val, $flags, $expire) = @_;
797 return $self->_do_command(::CMD_ADD, $key, $val, $extra_header, $cas);
802 my ($key, $val, $flags, $expire, $cas) = @_;
804 return $self->_do_command(::CMD_SET, $key, $val, $extra_header, $cas);
809 my ($cmd, $key, $val, $cas) = @_;
810 return $self->_do_command($cmd, $key, $val, '', $cas);
815 my ($key, $val, $flags, $expire) = @_;
818 return $self->_do_command(::CMD_REPLACE, $key, $val, $extra_header, $cas);
823 my ($key) = @_;
824 return $self->_do_command(::CMD_DELETE, $key, '');
829 my ($key, $amt, $init, $exp) = @_;
834 return $self->_incrdecr(::CMD_INCR, $key, $amt, $init, $exp);
839 my ($key, $amt, $init, $exp) = @_;
844 return $self->_incrdecr_cas(::CMD_INCR, $key, $amt, $init, $exp);
849 my ($key, $amt, $init, $exp) = @_;
854 return $self->_incrdecr(::CMD_DECR, $key, $amt, $init, $exp);