Lines Matching refs:self

258     my $self = shift;
262 $self = fields::new($self);
263 $self->{socket} = $sock;
264 return $self;
268 my $self = shift;
295 my $self = shift;
299 my $full_msg = $self->build_command($cmd, $key, $val, $opaque, $extra_header, $cas);
304 my $sent_bytes = $self->{socket}->syswrite($full_msg,
319 my $self = shift;
320 $self->{socket}->flush;
325 my $self = shift;
329 $self->send_command($cmd, $key, $val, $opaque, $extra_header, $cas);
330 $self->send_command(::CMD_NOOP, '', '', $opaque + 1);
332 my ($ropaque, $data) = $self->_handle_single_response;
337 my $self = shift;
347 my $self = shift;
352 $self->{socket}->sysread(my $response, ::MIN_RECV_BYTES - length($hdr));
368 $self->{socket}->sysread(my $buf, $remaining - length($rv));
389 my $self = shift;
395 $self->send_command($cmd, $key, $val, $opaque, $extra_header, $cas);
396 my (undef, $rv, $rcas) = $self->_handle_single_response($opaque);
401 my $self = shift;
417 my $self = shift;
420 my ($data, $rcas) = $self->_do_command($cmd, $key, '',
421 $self->_incrdecr_header($amt, $init, $exp));
431 my $self = shift;
432 my ($v, $c) = $self->_incrdecr_cas(@_);
437 my $self = shift;
446 my $self = shift;
450 $self->send_command(::CMD_STAT, $key, '', $opaque, '', $cas);
456 my ($op, $data, $cas, $keylen) = $self->_handle_single_response($opaque);
469 my $self = shift;
471 my ($rv, $cas) = $self->_do_command(::CMD_GET, $key, '', '');
480 my $self = shift;
484 $self->send_command(::CMD_GETQ, $keys[$i], '', $i, '', 0);
488 $self->send_command(::CMD_NOOP, '', '', $terminal);
492 my ($opaque, $data) = $self->_handle_single_response;
506 my $self = shift;
510 return $self->_do_command(::CMD_TOUCH, $key, '', $extra_header, $cas);
514 my $self = shift;
518 my ($rv, $cas) = $self->_do_command(::CMD_GAT, $key, '', $extra_header);
527 my $self = shift;
528 return $self->_do_command(::CMD_VERSION, '', '');
532 my $self = shift;
533 return $self->_do_command(::CMD_FLUSH, '', '');
537 my $self = shift;
541 return $self->_do_command(::CMD_ADD, $key, $val, $extra_header, $cas);
545 my $self = shift;
548 return $self->_do_command(::CMD_SET, $key, $val, $extra_header, $cas);
552 my $self = shift;
554 return $self->_do_command($cmd, $key, $val, '', $cas);
558 my $self = shift;
562 return $self->_do_command(::CMD_REPLACE, $key, $val, $extra_header, $cas);
566 my $self = shift;
568 return $self->_do_command(::CMD_DELETE, $key, '');
572 my $self = shift;
578 return $self->_incrdecr(::CMD_INCR, $key, $amt, $init, $exp);
582 my $self = shift;
588 return $self->_incrdecr_cas(::CMD_INCR, $key, $amt, $init, $exp);
592 my $self = shift;
598 return $self->_incrdecr(::CMD_DECR, $key, $amt, $init, $exp);
602 my $self = shift;
603 return $self->_do_command(::CMD_NOOP, '', '');
620 my $self = shift;
621 return "Memcache Error ($self->[0]): $self->[1]";
627 my $self = bless $error, (ref $class || $class);
629 return $self;
633 my $self = shift;
634 return $self->[0] == ERR_NOT_FOUND;
638 my $self = shift;
639 return $self->[0] == ERR_EXISTS;
643 my $self = shift;
644 return $self->[0] == ERR_TOO_BIG;
648 my $self = shift;
649 return $self->[0] == ERR_DELTA_BADVAL;
653 my $self = shift;
654 return $self->[0] == ERR_EINVAL;