File Coverage

Phase.xs
Criterion Covered Total %
statement 9 10 90.0
branch 0 2 0.0
condition n/a
subroutine n/a
pod n/a
total 9 12 75.0


line stmt bran cond sub pod time code
1             /*
2             *
3             * Copyright (c) 2018, Nicolas R.
4             *
5             * This is free software; you can redistribute it and/or modify it under the
6             * same terms as Perl itself.
7             *
8             */
9              
10             #include
11             #include
12             #include
13             #include
14              
15             MODULE = Perl__Phase PACKAGE = Perl::Phase
16              
17             SV*
18             current_phase()
19             PPCODE:
20             {
21 0 0         XPUSHs(newSViv(PL_phase));
22             }
23              
24             BOOT:
25             {
26             HV *stash;
27              
28 3           stash = gv_stashpvn("Perl::Phase", 11, TRUE);
29              
30 3           newCONSTSUB(stash, "_loaded", &PL_sv_yes );
31              
32 3           newCONSTSUB(stash, "PERL_PHASE_CONSTRUCT", newSViv(PERL_PHASE_CONSTRUCT) );
33 3           newCONSTSUB(stash, "PERL_PHASE_START", newSViv(PERL_PHASE_START) );
34 3           newCONSTSUB(stash, "PERL_PHASE_CHECK", newSViv(PERL_PHASE_CHECK) );
35 3           newCONSTSUB(stash, "PERL_PHASE_INIT", newSViv(PERL_PHASE_INIT) );
36 3           newCONSTSUB(stash, "PERL_PHASE_RUN", newSViv(PERL_PHASE_RUN) );
37 3           newCONSTSUB(stash, "PERL_PHASE_END", newSViv(PERL_PHASE_END) );
38 3           newCONSTSUB(stash, "PERL_PHASE_DESTRUCT", newSViv(PERL_PHASE_DESTRUCT) );
39             }