Branch Coverage

MorePerl.xs
Criterion Covered Total %
branch 21 36 58.3


line true false branch
15 0 65 if (PL_op->op_private & OPpASSIGN_BACKWARDS) swap(left, right);
17 65 0 if (left.is_hash_ref() && right.is_hash_ref()) {
3 62 if (left.is_hash_ref() && right.is_hash_ref()) {
3 0 if (left.is_hash_ref() && right.is_hash_ref()) {
3 0 if (left.is_hash_ref() && right.is_hash_ref()) {
3 62 if (left.is_hash_ref() && right.is_hash_ref()) {
18 3 0 xs::merge(left, right);
3 0 xs::merge(left, right);
23 62 0 return PL_ppaddr[PL_op->op_type](aTHX);
27 65 0 OP* ret = orig_opcheck ? orig_opcheck(aTHX_ op) : op;
30 65 0 if (packlen < 2 || packname[0] != 'N' || packname[1] != 'S') return ret;
65 0 if (packlen < 2 || packname[0] != 'N' || packname[1] != 'S') return ret;
0 65 if (packlen < 2 || packname[0] != 'N' || packname[1] != 'S') return ret;
31 40 25 if (packlen > 2 && (packname[2] != ':' || packname[3] != ':')) return ret;
40 0 if (packlen > 2 && (packname[2] != ':' || packname[3] != ':')) return ret;
0 40 if (packlen > 2 && (packname[2] != ':' || packname[3] != ':')) return ret;
37 0 13 if (PL_check[OP_SASSIGN] == opcheck) return;
43 0 13 if (PL_check[OP_SASSIGN] != opcheck) return;