view release on metacpan or  search on metacpan

GlobalPhase.xs  view on Meta::CPAN

SV*
in_global_phase_construct()
ALIAS:
  in_global_phase_start      = 1
  in_global_phase_check      = 2
  in_global_phase_init       = 3
  in_global_phase_run        = 4
  in_global_phase_end        = 5
  in_global_phase_destruct   = 6
PPCODE:
{
/* using ix when we can -- probably most/all versions? */
#if CAN_USE_IX_FOR_PERL_PHASE
    int phase = ix;
#else
    int phase = PERL_PHASE_CONSTRUCT;
    if ( ix == 1 ) {
        phase = PERL_PHASE_START;
    } else if ( ix == 2 ) {
        phase = PERL_PHASE_CHECK;

GlobalPhase.xs  view on Meta::CPAN

    if ( PL_phase == phase ) {
        XSRETURN_YES;
    } else {
        XSRETURN_NO;
    }
}

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

BOOT:
    {
         HV *stash;

         stash = gv_stashpvn("Check::GlobalPhase", 18, TRUE);