view release on metacpan or  search on metacpan

Phase.xs  view on Meta::CPAN

#include <EXTERN.h>
#include <perl.h>
#include <XSUB.h>
#include <embed.h>

MODULE = Perl__Phase       PACKAGE = Perl::Phase

SV*
current_phase()
PPCODE:
{
    XPUSHs(newSViv(PL_phase));
}

BOOT:
    {
         HV *stash;

         stash = gv_stashpvn("Perl::Phase", 11, TRUE);