Arcus-Client

 view release on metacpan or  search on metacpan

Base.xs  view on Meta::CPAN

    warn("failed to memcached_cas: %d (%s)", ret, memcached_strerror(mc, ret));
  }

  do_return:
  if (mc != NULL) {
    memcached_pool_push(arcus->pool, mc);
  }
  if (RETVAL == NULL) {
    RETVAL = &PL_sv_undef;
  }
OUTPUT:
RETVAL

SV *
set(arcus, key, value, ...)
  Arcus_API *arcus
  SV *key
  SV *value
  ALIAS:
  set     = ARCUS_SET
  add     = ARCUS_ADD

Base.xs  view on Meta::CPAN

    warn("failed to memcached_%s: %d (%s)", ARCUS_OP_NAME[ix], ret, memcached_strerror(mc, ret));
  }

  do_return:
  if (mc != NULL) {
    memcached_pool_push(arcus->pool, mc);
  }
  if (RETVAL == NULL) {
    RETVAL = &PL_sv_undef;
  }
OUTPUT:
RETVAL

void
set_multi(arcus, ...)
  Arcus_API *arcus
  ALIAS:
  set_multi     = ARCUS_SET
  add_multi     = ARCUS_ADD
  replace_multi = ARCUS_REPLACE
  append_multi  = ARCUS_APPEND

Base.xs  view on Meta::CPAN

    warn("failed to memcached_%s: %d (%s)", ARCUS_OP_NAME[ix], ret, memcached_strerror(mc, ret));
  }

  do_return:
  if (mc != NULL) {
    memcached_pool_push(arcus->pool, mc);
  }
  if (RETVAL == NULL) {
    RETVAL = &PL_sv_undef;
  }
OUTPUT:
RETVAL

void
get(arcus, key)
  Arcus_API *arcus
  SV *key
  ALIAS:
  get    = ARCUS_GET
  gets   = ARCUS_GETS
  PPCODE:

Base.xs  view on Meta::CPAN

  }

  if (is_gets) {
    memcached_behavior_set(mc, MEMCACHED_BEHAVIOR_SUPPORT_CAS, false);
  }

  do_return:
  if (mc != NULL) {
    memcached_pool_push(arcus->pool, mc);
  }
  PUTBACK;

HV *
get_multi(arcus, ...)
  Arcus_API *arcus
  ALIAS:
  get_multi    = ARCUS_GET
  gets_multi   = ARCUS_GETS
  PREINIT:
  size_t arg = 1;
  size_t i = 0;

Base.xs  view on Meta::CPAN

  }
  if (mc != NULL) {
    memcached_pool_push(arcus->pool, mc);
  }
  if (keys_ptr != NULL) {
    Safefree(keys_ptr);
  }
  if (keys_length != NULL) {
    Safefree(keys_length);
  }
OUTPUT:
RETVAL

SV *
delete(arcus, key)
  Arcus_API *arcus
  SV *key
  CODE:
  memcached_return_t ret;
  RETVAL = NULL;
  STRLEN key_length;

Base.xs  view on Meta::CPAN

  ret = memcached_delete(mc, key_ptr, key_length, 0);
  RETVAL = newSViv(memcached_success(ret));

  do_return:
  if (mc != NULL) {
    memcached_pool_push(arcus->pool, mc);
  }
  if (RETVAL == NULL) {
    RETVAL = &PL_sv_undef;
  }
OUTPUT:
RETVAL

SV *
flush_all(arcus, ...)
  Arcus_API *arcus
  PREINIT:
  time_t exptime = 0;
  int arg = 1;
  CODE:
  memcached_return_t ret;

Base.xs  view on Meta::CPAN

  ret = memcached_flush(mc, exptime);
  RETVAL = newSViv(memcached_success(ret));

  do_return:
  if (mc != NULL) {
    memcached_pool_push(arcus->pool, mc);
  }
  if (RETVAL == NULL) {
    RETVAL = &PL_sv_undef;
  }
OUTPUT:
RETVAL

HV *
server_versions(arcus)
  Arcus_API *arcus
  CODE:
  memcached_return_t ret;
  RETVAL = newHV();
  int i;

Base.xs  view on Meta::CPAN

    SV *host = newSVpvf("%s:%d", server->hostname, server->port);
    SV *version = newSVpvf("%d.%d.%d", server->major_version,
                                       server->minor_version,
                                       server->micro_version);

    hv_store(RETVAL, SvPV_nolen(host), SvCUR(host), version, 0);
  }

  do_return:
  sv_2mortal((SV *) RETVAL);
OUTPUT:
RETVAL

ppport.h  view on Meta::CPAN

PUSH_MULTICALL_FLAGS|5.018000||Viu
PUSHn|5.006000|5.003007|
PUSHp|5.003007|5.003007|
PUSHs|5.003007|5.003007|
push_scope|5.003007|5.003007|u
PUSHSTACK|5.005000||Viu
PUSHSTACKi|5.005000||Viu
PUSHSTACK_INIT_HWM|5.027002||Viu
PUSHTARG|5.003007||Viu
PUSHu|5.004000|5.003007|p
PUTBACK|5.003007|5.003007|
putc|5.003007||Viu
put_charclass_bitmap_innards|5.021004||Viu
put_charclass_bitmap_innards_common|5.023008||Viu
put_charclass_bitmap_innards_invlist|5.023008||Viu
put_code_point|5.021004||Viu
putc_unlocked|5.003007||Viu
putenv|5.005000||Viu
put_range|5.019009||Viu
putw|5.003007||Viu
pv_display|5.006000|5.003007|p

ppport.h  view on Meta::CPAN

{
    dSP;
    SV* sv = newSVpv(p, 0);

    PUSHMARK(sp);
    eval_sv(sv, G_SCALAR);
    SvREFCNT_dec(sv);

    SPAGAIN;
    sv = POPs;
    PUTBACK;

    D_PPP_CROAK_IF_ERROR(croak_on_error);

    return sv;
}

#endif
#endif

#if ! defined(vload_module) && defined(start_subparse)

typemap  view on Meta::CPAN

TYPEMAP
Arcus_API *      T_ARCUS_API

INPUT
T_ARCUS_API
  IV tmp = SvIV((SV *) SvRV($arg));
  $var = INT2PTR(Arcus_API *, tmp);

OUTPUT
T_ARCUS_API
  sv_setref_pv($arg, class, (void*) $var);