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);
320 my $key = "silentreplace";
322 $empty->($key);
326 $mc->add($key, "xval", 831, 0);
327 $check->($key, 831, 'xval');
329 $mc->send_silent(::CMD_REPLACEQ, $key, 'somevalue', 7278552, $extra, 0);
330 $check->($key, 829, 'somevalue');
335 my $key = "silentdelete";
336 $empty->($key);
337 $mc->set($key, "some val", 19, 0);
338 $mc->send_silent(::CMD_DELETEQ, $key, '', 772);
339 $empty->($key);
344 my $key = "silentincr";
346 $empty->($key);
347 $mc->silent_incrdecr(::CMD_INCREMENTQ, $key, 0, 0, 0);
348 is($mc->incr($key, 0), 0, "First call is 0");
350 $mc->silent_incrdecr(::CMD_INCREMENTQ, $key, 8, 0, 0);
351 is($mc->incr($key, 0), 8);
356 my $key = "silentdecr";
358 $empty->($key);
359 $mc->silent_incrdecr(::CMD_DECREMENTQ, $key, 0, 185, 0);
360 is($mc->incr($key, 0), 185);
362 $mc->silent_incrdecr(::CMD_DECREMENTQ, $key, 8, 0, 0);
363 is($mc->incr($key, 0), 177);
383 my $key = "appendkey";
385 $set->($key, 8, 19, $value);
386 $mc->_append_prepend(::CMD_APPEND, $key, " more");
387 $check->($key, 19, $value . " more");
392 my $key = "prependkey";
394 $set->($key, 8, 19, $value);
395 $mc->_append_prepend(::CMD_PREPEND, $key, "prefixed ");
396 $check->($key, 19, "prefixed " . $value);
401 my $key = "appendqkey";
403 $set->($key, 8, 19, $value);
404 $mc->send_silent(::CMD_APPENDQ, $key, " more", 7284492);
405 $check->($key, 19, $value . " more");
410 my $key = "prependqkey";
412 $set->($key, 8, 19, $value);
413 $mc->send_silent(::CMD_PREPENDQ, $key, "prefixed ", 7284492);
414 $check->($key, 19, "prefixed " . $value);
430 my $key = "some_key_$_";
433 print $sock "set $key 0 0 $biglen\r\n$big\r\n";
435 my ($f, $v, $c) = $mc->get($key);
517 my $key = "x" x 365;
519 $mc->get($key, 'should die', 10, 10);
550 my ($cmd, $key, $val, $opaque, $extra_header, $cas) = @_;
553 my $keylen = length($key);
570 my $full_msg = $msg . $extra_header . $key . $val;
577 my ($cmd, $key, $val, $opaque, $extra_header, $cas) = @_;
579 my $full_msg = $self->build_command($cmd, $key, $val, $opaque, $extra_header, $cas);
606 my ($cmd, $key, $val, $opaque, $extra_header, $cas) = @_;
608 $self->send_command($cmd, $key, $val, $opaque, $extra_header, $cas);
617 my ($cmd, $key, $value) = @_;
619 $empty->($key);
621 $mc->send_silent($cmd, $key, $value, 7278552, $extra, 0);
622 $check->($key, 82, $value);
670 my ($cmd, $key, $val, $extra_header, $cas) = @_;
674 $self->send_command($cmd, $key, $val, $opaque, $extra_header, $cas);
697 my ($cmd, $key, $amt, $init, $exp) = @_;
699 my ($data, $rcas) = $self->_do_command($cmd, $key, '',
717 my ($cmd, $key, $amt, $init, $exp) = @_;
720 $mc->send_silent($cmd, $key, '', $opaque,
726 my $key = shift;
729 $self->send_command(::CMD_STAT, $key, '', $opaque, '', $cas);
749 my $key = shift;
750 my ($rv, $cas) = $self->_do_command(::CMD_GET, $key, '', '');
786 my ($key, $expire) = @_;
789 return $self->_do_command(::CMD_TOUCH, $key, '', $extra_header, $cas);
794 my $key = shift;
797 my ($rv, $cas) = $self->_do_command(::CMD_GAT, $key, '', $extra_header);
817 my ($key, $val, $flags, $expire) = @_;
820 return $self->_do_command(::CMD_ADD, $key, $val, $extra_header, $cas);
825 my ($key, $val, $flags, $expire, $cas) = @_;
827 return $self->_do_command(::CMD_SET, $key, $val, $extra_header, $cas);
832 my ($cmd, $key, $val, $cas) = @_;
833 return $self->_do_command($cmd, $key, $val, '', $cas);
838 my ($key, $val, $flags, $expire) = @_;
841 return $self->_do_command(::CMD_REPLACE, $key, $val, $extra_header, $cas);
846 my ($key) = @_;
847 return $self->_do_command(::CMD_DELETE, $key, '');
852 my ($key, $amt, $init, $exp) = @_;
857 return $self->_incrdecr(::CMD_INCR, $key, $amt, $init, $exp);
862 my ($key, $amt, $init, $exp) = @_;
867 return $self->_incrdecr_cas(::CMD_INCR, $key, $amt, $init, $exp);
872 my ($key, $amt, $init, $exp) = @_;
877 return $self->_incrdecr(::CMD_DECR, $key, $amt, $init, $exp);