File Coverage

XS.xs

Criterion	Covered	Total	%
statement	39	39	100.0
branch	27	42	64.2
condition			n/a
subroutine			n/a
pod			n/a
total	66	81	81.4

#include
#ifdef TEST_FULL
#  include "t/src/test.h"
#endif

STATIC xs::payload_marker_t marker;

MODULE = Panda::XS                PACKAGE = Panda::XS
PROTOTYPES: DISABLE

void sv_payload_attach (SV* sv, SV* payload) {
    xs::sv_payload_detach(aTHX_ sv, &marker);
    xs::sv_payload_attach(aTHX_ sv, payload, &marker);
}

bool sv_payload_exists (SV* sv) {
    RETVAL = xs::sv_payload_exists(aTHX_ sv, &marker);
}

SV* sv_payload (SV* sv) {
    RETVAL = xs::sv_payload_sv(aTHX_ sv, &marker);
    if (!RETVAL) XSRETURN_UNDEF;
    else SvREFCNT_inc_simple_void_NN(RETVAL);
}

int sv_payload_detach (SV* sv) {
    RETVAL = xs::sv_payload_detach(aTHX_ sv, &marker);
}

void rv_payload_attach (SV* rv, SV* payload) {
    if (!SvROK(rv)) croak("Panda::XS::rv_payload_attach: argument is not a reference");
    xs::rv_payload_detach(aTHX_ rv, &marker);
    xs::rv_payload_attach(aTHX_ rv, payload, &marker);
}

bool rv_payload_exists (SV* rv) {
    if (!SvROK(rv)) croak("Panda::XS::rv_payload_exists: argument is not a reference");
    RETVAL = xs::rv_payload_exists(aTHX_ rv, &marker);
}

SV* rv_payload (SV* rv) {
    if (!SvROK(rv)) croak("Panda::XS::rv_payload: argument is not a reference");
    RETVAL = xs::rv_payload_sv(aTHX_ rv, &marker);
    if (!RETVAL) XSRETURN_UNDEF;
    else SvREFCNT_inc_simple_void_NN(RETVAL);
}

int rv_payload_detach (SV* rv) {
    if (!SvROK(rv)) croak("Panda::XS::rv_payload_detach: argument is not a reference");
    RETVAL = xs::rv_payload_detach(aTHX_ rv, &marker);
}

void any_payload_attach (SV* sv, SV* payload) {
    if (SvROK(sv)) {
        xs::sv_payload_detach(aTHX_ SvRV(sv), &marker);
        xs::sv_payload_attach(aTHX_ SvRV(sv), payload, &marker);
    }
    else {
        xs::sv_payload_detach(aTHX_ sv, &marker);
        xs::sv_payload_attach(aTHX_ sv, payload, &marker);
    }
}

bool any_payload_exists (SV* sv) {
    if (SvROK(sv)) RETVAL = xs::sv_payload_exists(aTHX_ SvRV(sv), &marker);
    else RETVAL = xs::sv_payload_exists(aTHX_ sv, &marker);
}

SV* any_payload (SV* sv) {
    if (SvROK(sv)) RETVAL = xs::sv_payload_sv(aTHX_ SvRV(sv), &marker);
    else RETVAL = xs::sv_payload_sv(aTHX_ sv, &marker);

    if (!RETVAL) XSRETURN_UNDEF;
    else SvREFCNT_inc_simple_void_NN(RETVAL);
}

int any_payload_detach (SV* sv) {
    if (SvROK(sv)) RETVAL = xs::sv_payload_detach(aTHX_ SvRV(sv), &marker);
    else RETVAL = xs::sv_payload_detach(aTHX_ sv, &marker);
}


void obj2hv (SV* rv) {
    if (!SvROK(rv)) croak("Panda::XS::obj2hv: argument is not a reference");
    SV* obj = SvRV(rv);
    if (SvOK(obj)) croak("Panda::XS::obj2hv: only references to undefs can be upgraded");
    SvUPGRADE(obj, SVt_PVHV);
}

void obj2av (SV* rv) {
    if (!SvROK(rv)) croak("Panda::XS::obj2av: argument is not a reference");
    SV* obj = SvRV(rv);
    if (SvOK(obj)) croak("Panda::XS::obj2av: only references to undefs can be upgraded");
    SvUPGRADE(obj, SVt_PVAV);
}

#ifdef TEST_FULL

INCLUDE: t/src/test.xsi

#endif