Branch Coverage

blib/lib/Test/Data/Sah/Perl.pm
Criterion Covered Total %
branch 32 40 80.0


line true false branch
33 33 1470 if ($test->{'dies'}) { }
37 0 1470 unless (&ok(!$eval_err, "compile success"))
43 25 1445 if ($test->{'valid_inputs'}) { }
1445 0 elsif (exists $test->{'valid'}) { }
47 0 51 $ho ? :
51 0 60 $ho ? :
55 833 612 if ($test->{'valid'}) { }
56 6 827 $ho ? :
57 6 827 if ($ho)
61 0 612 $ho ? :
67 1445 25 if (exists $test->{'valid'})
68 833 612 if ($test->{'valid'}) { }
79 1445 25 if (exists $test->{'errors'} or exists $test->{'warnings'} or exists $test->{'valid'})
81 833 339 $test->{'valid'} ? :
82 0 1445 unless &is(scalar keys %{$res->{'errors'} // {};}, $errors, "errors (rt=hash_details)")
85 0 1445 unless &is(scalar keys %{$res->{'warnings'} // {};}, $warnings, "warnings (rt=hash_details)")
93 0 1584 unless $t->{'tags'}
99 28 1556 if all_match(["type:bool", "clause:between", "op"], $t->{'tags'})
117 32 16966 if all_match(["clause:$_"], $t->{'tags'})
121 21 1503 if grep {/^prop:/;} @{$$t{"tags"};}