File Coverage

PrintExpr.xs
Criterion Covered Total %
statement 6 8 75.0
branch 8 12 66.6
condition n/a
subroutine n/a
pod n/a
total 14 20 70.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             #ifdef USE_PPPORT_H
7             # define NEED_sv_2pv_flags 1
8             # define NEED_newSVpvn_flags 1
9             # define NEED_sv_catpvn_flags
10             # include "ppport.h"
11             #endif
12              
13             MODULE = Debug::Filter::PrintExpr PACKAGE = Debug::Filter::PrintExpr
14              
15             PROTOTYPES: ENABLE
16              
17             void
18             isstring(sv)
19             SV *sv
20             PROTOTYPE: $
21             CODE:
22 7 50         if(SvMAGICAL(sv))
23 0           mg_get(sv);
24              
25 7 100         ST(0) = boolSV(SvPOK(sv) || SvPOKp(sv));
    50          
26 7           XSRETURN(1);
27              
28             void
29             isnumeric(sv)
30             SV *sv
31             PROTOTYPE: $
32             CODE:
33 32 50         if(SvMAGICAL(sv))
34 0           mg_get(sv);
35              
36 32 100         ST(0) = boolSV(SvNIOK(sv) || SvNIOKp(sv));
    50          
37 32           XSRETURN(1);
38