view release on metacpan or  search on metacpan

include/in.h  view on Meta::CPAN

#include "colouring.h"

/* ── Class name constant ──────────────────────────────────────── */

#define COLOURING_CLASS      "Colouring::In::XS"
#define COLOURING_CLASS_LEN  17

/* ── Message store (set from Perl side) ───────────────────────── */
/* Holds a refcount-managed reference to the user's message hash so
 * the underlying HV stays alive after set_messages() returns. */

static SV * MESSAGES_REF = NULL;

#define MESSAGES \
	((MESSAGES_REF && SvROK(MESSAGES_REF)) ? (HV*)SvRV(MESSAGES_REF) : NULL)

/* ── Bless a hash into the caller's class ─────────────────────── */

static SV * xs_new(SV * class, HV * hash) {
	dTHX;