File Coverage

ChildSubReaper.xs
Criterion Covered Total %
statement 2 3 66.6
branch 1 2 50.0
condition n/a
subroutine n/a
pod n/a
total 3 5 60.0


line stmt bran cond sub pod time code
1             #define PERL_NO_GET_CONTEXT
2             #include "EXTERN.h"
3             #include "perl.h"
4             #include "XSUB.h"
5              
6             #include "subreaper_impl.h"
7              
8             MODULE = Test2::Harness2::ChildSubReaper PACKAGE = Test2::Harness2::ChildSubReaper
9              
10             int
11             have_subreaper_support()
12             CODE:
13 5 50         RETVAL = H2_SUBREAPER_HAVE;
14             OUTPUT:
15             RETVAL
16              
17             SV *
18             subreaper_mechanism()
19             CODE:
20             #if H2_SUBREAPER_HAVE
21 2           RETVAL = newSVpv(H2_SUBREAPER_MECHANISM, 0);
22             #else
23             RETVAL = newSV(0); /* fresh undef */
24             #endif
25             OUTPUT:
26             RETVAL
27              
28             int
29             set_child_subreaper(on)
30             int on
31             CODE:
32 0           RETVAL = h2_subreaper_set(on);
33             OUTPUT:
34             RETVAL