Branch Coverage

blib/lib/Mylisp/LintMyAst.pm
Criterion Covered Total %
branch 0 120 0.0


line true false branch
63 0 0 unless ($ok)
82 0 0 unless ($ok)
91 0 0 if (is_atom($atoms))
96 0 0 if (is_branch($rule))
104 0 0 if (is_atom($match))
153 0 0 if (is_branch($atom)) { }
154 0 0 if ($count > 1) { }
0 0 elsif ($count == 0) { }
172 0 0 if ($flag == 0)
173 0 0 if ($count == 1) { }
180 0 0 if ($count > 1) { }
216 0 0 if (exists $table->{$name}) { }
229 0 0 if (not $name ~~ ['Str', 'End'])
252 0 0 if (not exists $table->{$name})
318 0 0 unless (match_type_rule($t, $rule))
329 0 0 if (match_type_rule($t, $rule))
343 0 0 unless (exists $mytable->{$name})
355 0 0 unless (match_type_rule($t, $rule))
356 0 0 if ($time == 0)
370 0 0 unless (match_type_rule($t, $rule))
379 0 0 if ($char ne apply_char($t))
389 0 0 if (apply_char($t) eq "\000")
407 0 0 if (exists $tree->{$ns}{$name})
441 0 0 if ($ns ne Context($t))
443 0 0 unless (exists $tree->{$ns})
471 0 0 if (exists $tree->{$ns}{$name})
482 0 0 if (exists $tree->{$ns}{$name})
580 0 0 if (is_blank($args)) { }
635 0 0 if (not $name ~~ ['package', 'Str', 'Lstr', 'Int', 'Bool', 'Char', '->'])
720 0 0 if (start_with($name, '$'))
721 0 0 if IsDefine($t, $name)
769 0 0 if ($return_type ne $args_type_str)
772 0 0 if (not match_type($t, $args_pat, $return_type))
794 0 0 if (is_str($type)) { }
810 0 0 if (len($types) != 2)
826 0 0 if (not exists $tree->{$type}{$call})
834 0 0 if (is_blank($args)) { }
835 0 0 if (not is_str($value))
840 0 0 if (is_str($value))
846 0 0 if ($call_str ne $args_str)
848 0 0 if (not match_type($t, $call_rule, $args_str))
870 0 0 if ($sym_type ne $value_type)
878 0 0 if (not IsDefine($t, $name))
887 0 0 if ($name ~~ ['Int', 'Str', 'Bool', 'Hash'])
890 0 0 if ($name ~~ ['Char', 'Lstr', 'String'])
893 0 0 if ($name eq 'Sym')
896 0 0 if ($name eq ':ocall')
899 0 0 if ($name eq 'Array')
902 0 0 if ($name eq 'Arange')
905 0 0 if ($name eq 'Aindex')
914 0 0 if (is_str($value))
925 0 0 unless (exists $tree->{$type}{$call})
933 0 0 if (is_blank($args))
937 0 0 if ($sub_type eq 'Int')
946 0 0 if ($type eq 'Ints')
949 0 0 if ($type ~~ ['Strs', 'Table', 'Str'])
994 0 0 if (exists $tree->{$value})
996 0 0 if (exists $table->{$name})
1007 0 0 if ($name ~~ ['func', 'if', 'else', 'elif', 'given', 'when', 'then', 'my', 'use', 'package', 'const', 'for', 'while', 'return', 'struct', 'type'])
1011 0 0 if (is_str($value))