view release on metacpan or  search on metacpan

lib/Evo/Class/Attrs/XS.xs  view on Meta::CPAN

SV *attrs_gen_new(self)
  SV *self;

bool attrs_exists(self, name)
  SV *self;
  SV *name;

void slots(self)
  SV *self;
PPCODE:
  AV *av = sv2av(self);
  int i, last = av_top_index(av), size = last + 1;

  for (i = 0; i < size; i++) {
    SV **tmp = av_fetch(av, i, 0);
    if (!tmp) croak("Broken attr %d", i);
    mXPUSHs(psv_to_slotsv(*tmp));
  }

lib/Evo/Lib/XS.xs  view on Meta::CPAN

#include "XSUB.h"

#include "xs.c"

MODULE = Evo::Lib::XS     PACKAGE = Evo::Lib::XS PREFIX = evo_lib_

PROTOTYPES: ENABLE

int evo_lib_try(...)
PROTOTYPE: &$;$
PPCODE:
  dTHX;
  PERL_UNUSED_VAR(targ);
  PERL_UNUSED_VAR(RETVAL);
  SP = evo_lib_try(ax, items, SP);