File Coverage

src/xs/basic.cc

Criterion	Covered	Total	%
statement	23	28	82.1
branch	19	36	52.7
condition			n/a
subroutine			n/a
pod			n/a
total	42	64	65.6

#include
#include
#include
#include
#include

namespace xs {

using panda::string;

#ifdef PERL_IMPLICIT_CONTEXT
PerlInterpreter* my_perl_auto_t::main_interp = PERL_GET_THX;
#endif

my_perl_auto_t my_perl;

static std::vector> end_cbs;

void at_perl_destroy (const panda::function& f) {
    end_cbs.push_back(f);
}

void __call_at_perl_destroy () {
    for (auto& f : end_cbs) f();
    Sv::__at_perl_destroy();
    Scalar::__at_perl_destroy();
    Simple::__at_perl_destroy();
}

void __call_at_thread_create () {
#ifdef PERL_IMPLICIT_CONTEXT
    my_perl_auto_t::main_interp = nullptr;
#endif
}

void __boot_module (const char* rawmod, void (*bootfunc)(pTHX_ CV*), const char* version, const char* file) {
    string bs("::bootstrap");
    string module(strlen(rawmod) + bs.length() + 1);
    module.assign(rawmod);

    auto len = module.length();
    auto ptr = module.buf();
    for (size_t i = 0; i < len; ++i) {
        if (ptr[i] != '_' || i >= len - 1 || ptr[i+1] != '_') continue;
        ptr[i] = ':';
        ptr[i+1] = ':';
        ++i;
    }

    auto xsname = module + bs;

    Sub sub = newXS(xsname.c_str(), bootfunc, file);
    sub.call(Simple(module), Simple(version));
}

}