Branch Coverage

easyxs/easyxs_perlcall.h
Criterion Covered Total %
branch 24 38 63.1


line true false branch
11 22 0 if (args) {
12 17 22 while (args[argscount] != NULL) argscount++;
18 0 22 PUSHMARK(SP);
20 22 0 if (object || argscount) {
17 5 if (object || argscount) {
21 0 17 EXTEND(SP, (object ? 1 : 0) + argscount);
0 17 EXTEND(SP, (object ? 1 : 0) + argscount);
0 0 EXTEND(SP, (object ? 1 : 0) + argscount);
23 0 17 if (object) PUSHs( sv_mortalcopy(object) );
26 17 17 while (a < argscount) mPUSHs( args[a++] );
55 0 20 if (count == 0) {
61 0 20 while (count-- > 1) PERL_UNUSED_VAR(POPs);
65 20 0 FREETMPS;
157 22 0 _handle_trapped_error(count, error);
2 20 _handle_trapped_error(count, error);
2 2 _handle_trapped_error(count, error);
2 0 _handle_trapped_error(count, error);
159 22 0 if (SvTRUE(ERRSV)) return NULL;
2 20 if (SvTRUE(ERRSV)) return NULL;