Branch Coverage

blib/lib/Data/Sah/Compiler/human.pm
Criterion Covered Total %
branch 82 108 75.9


line true false branch
27 43 9572 unless $cd->{'args'}{'format'} eq "msg_catalog"
40 0 5070 unless (grep {$_ eq $args->{'format'};} @fmts)
49 5046 24 if (($cd->{'args'}{'format'} // "") eq "msg_catalog")
70 6773 6048 unless ref $val
82 97999 36 if $lang eq "en_US"
88 36 0 if defined $translations->{$text}
89 0 0 if ($cd->{'args'}{'mark_missing_translation'}) { }
105 61 1 if ($lang eq 'en_US') { }
142 9585 4 $lang eq $dlang ? :
143 4548 5041 if ($clause) { }
146 0 4548 if (defined $cd->{'clset'}{"$clause.human$suffix"})
154 0 5041 if (defined $cd->{'clset'}{".name$suffix"})
163 5041 4548 unless $clause
173 4 4544 if ($ie)
174 0 4 unless ($ccl->{'expr'})
175 0 0 $op ? :
184 305 4239 if ($op eq 'not') { }
559 3680 elsif ($im and $op eq 'and') { }
558 3122 elsif ($im and $op eq 'or') { }
270 2852 elsif ($im and $op eq 'none') { }
189 450 109 if (@$cv == 2) { }
198 449 109 if (@$cv == 2) { }
209 216 54 if (@$cv == 2) { }
224 4187 361 if ($ccl->{'type'} eq "clause" and grep {$_ eq "constraint";} @{$cd->{'cl_meta'}{'tags'} // [];})
225 54 4133 if (($cd->{'clset'}{"$clause.err_level"} // "error") eq "warn")
226 0 54 if ($op eq 'not') { }
239 9586 3 if ($ccl->{'xlt'})
240 5041 4545 if (ref $ccl->{'fmt'} eq 'ARRAY') { }
4545 0 elsif (not ref $ccl->{'fmt'}) { }
249 5041 4548 if (ref $ccl->{'fmt'} eq 'ARRAY') { }
4548 0 elsif (not ref $ccl->{'fmt'}) { }
255 9589 0 unless $cd->{'args'}{'debug'}
294 9589 0 if (@ccls == 1) { }
310 0 0 if ($op eq 'or') { }
0 0 elsif ($op eq 'and') { }
0 0 elsif ($op eq 'none') { }
337 10822 0 if ($f eq 'inline_text' or $f eq 'inline_err_text' or $f eq 'msg_catalog') { }
339 5755 5067 if ($f eq "inline_err_text")
341 221 5534 if ($cd->{'_fmt_noun_count'} == 1 and $cd->{'_fmt_etc_count'} == 0) { }
5396 138 elsif (not $cd->{'_fmt_noun_count'}) { }
370 15703 6254 if (ref $ccls eq 'HASH' and $ccls->{'type'} =~ /^(noun|clause)$/) { }
551 5703 elsif (ref $ccls eq 'HASH' and $ccls->{'type'} eq 'list') { }
5703 0 elsif (ref $ccls eq 'ARRAY') { }
371 5731 9972 if ($ccls->{'type'} eq 'noun') { }
378 5722 9981 ref $ccl->{'text'} eq 'ARRAY' ? :
390 61 551 if $i
392 284 328 if ($it =~ /\Q$c_comma\E/) { }
418 0 5070 unless $lang =~ /\A\w+\z/
422 3 5067 unless ($lang eq "en_US")
433 1 2 unless (exists $INC{$modp})
434 1 0 if ($i == 1)
438 0 1 unless (Module::Installed::Tiny::module_installed($modp))
463 0 5070 if $cd->{'args'}{'debug'} and not defined $res
523 5043 24 if ($cd->{'args'}{'format'} eq "msg_catalog")