File Coverage

JS.xs
Criterion Covered Total %
statement 8 9 88.8
branch 13 22 59.0
condition n/a
subroutine n/a
pod n/a
total 21 31 67.7


line stmt bran cond sub pod time code
1             #include "EXTERN.h"
2             #include "perl.h"
3             #include "XSUB.h"
4              
5 2772           int _is_ok(SV * in) {
6              
7 2772 100         if(!SvOK(in)) return 0;
8              
9 2771 100         if( sv_isobject(in) ) {
10 221 50         const char* h = HvNAME( SvSTASH(SvRV(in)) );
    50          
    50          
    0          
    50          
    50          
11 221 50         if(strEQ(h, "Math::JS")) return 1;
12             }
13              
14 2550 100         if(SvIOK(in) || SvNOK(in)) return 2;
    50          
15 0           return 0;
16             }
17              
18 106           double _fmod(double n, double d) {
19 106           return fmod(n, d);
20             }
21              
22              
23             MODULE = Math::JS PACKAGE = Math::JS
24              
25             PROTOTYPES: DISABLE
26              
27             int
28             _is_ok (in)
29             SV * in
30              
31             double
32             _fmod (n, d)
33             double n
34             double d