Branch Coverage

blib/lib/Mylisp/Estr.pm
Criterion Covered Total %
branch 0 82 0.0


line true false branch
21 0 0 if (is_true($str))
24 0 0 if (is_false($str))
40 0 0 if (first_char($atom) eq "\cC")
41 0 0 if (substr($atom, 1, 1) eq "\cE")
49 0 0 if (is_estr($atoms))
51 0 0 unless (is_atom($atom))
70 0 0 if (is_estr($atom))
73 0 0 if (is_str($atom))
98 0 0 if (is_estr($json))
104 0 0 if ($mode == 0) { }
0 0 elsif ($mode == 1) { }
0 0 elsif ($mode == 2) { }
117 0 0 if (is_digit($ch))
139 0 0 if ($ch eq ',')
142 0 0 if ($ch eq ']')
146 0 0 if (is_digit($ch))
172 0 0 if (is_str($estr))
178 0 0 if ($mode == 0) { }
0 0 elsif ($mode == 1) { }
0 0 elsif ($mode == 2) { }
292 0 0 if ($depth == 0) { }
0 0 elsif ($depth == 1) { }
293 0 0 if ($ch eq "\cC")
301 0 0 if ($mode)
309 0 0 if ($mode)
316 0 0 if ($mode)
323 0 0 if ($mode)
328 0 0 if ($mode)
335 0 0 if ($ch eq "\cC")
338 0 0 if ($ch eq "\cD")
348 0 0 if (is_str($estr))
352 0 0 if (len($atoms) < 2)
360 0 0 if (len($atoms) == 0)
363 0 0 if (len($atoms) == 1)
371 0 0 if (is_atom($name))
381 0 0 if (ord $char > 6) { }
422 0 0 if (is_atom($atom))
433 0 0 if (is_atom($ast))
445 0 0 if (is_str($value))
448 0 0 if (is_blank($value))
451 0 0 if (is_atom($value))