view release on metacpan or  search on metacpan

Compiling.xs  view on Meta::CPAN

#include "XSUB.h"

STATIC SV *compiling_sv;

MODULE = B::Compiling  PACKAGE = B::Compiling

PROTOTYPES: DISABLE

void
PL_compiling ()
    PPCODE:
        XPUSHs (compiling_sv);

BOOT:
    {
        HV *cop_stash = gv_stashpv ("B::COP", 0);

        if (!cop_stash) {
            croak ("B doesn't provide B::COP");
        }