Branch Coverage

lib/Template/Test.pm
Criterion Covered Total %
branch 51 72 70.8


line true false branch
76 81 2 $ntests ? :
96 219 2821 unless ($ok_count)
101 2548 273 defined $msg ? :
102 2820 1 if ($ok) { }
106 1 0 if defined $msg
121 0 0 if $ok
137 7 78 $ok_count ? :
140 0 85 if ref $result
142 85 0 if ($result eq $expect) { }
159 5 0 unless $ok_count or $NO_FLUSH
217 74 0 ref $src ? :
219 0 74 if ($@)
229 0 74 if $input =~ /\s*--\s*start\s*--\s*/
230 7 67 if $input =~ /\s*--\s*stop\s*--\s*/
236 67 7 if $tests[0] =~ /^\s*$/
245 30 44 if (ref $tproc eq 'HASH') { }
24 20 elsif (ref $tproc eq 'ARRAY') { }
17 3 elsif (not ref $tproc) { }
272 103 1017 if ($input =~ s/^\s*-- name:? (.*?) --\s*\n//im) { }
281 0 1120 if ($input =~ s/^\s*-- todo:? (.*?) --\s*\n//im)
282 0 0 $1 eq '' ? :
288 7 1113 unless defined $expect
295 68 1052 if ($input =~ s/^\s*--\s*use\s+(\S+)\s*--\s*\n//im)
298 68 0 if ($ttlookup = $$ttprocs{$ttname}) { }
307 0 1120 unless ($tproc->process(\$input, $params, \$output))
325 34 1086 if ($expect =~ s/^\s*--+\s*process\s*--+\s*\n//im)
327 0 34 unless ($tproc->process(\$expect, $params, \$out))
343 1119 1 $expect eq $output ? :
344 1 1119 if (not $match or $DEBUG)
345 1 0 unless $match
349 1 0 unless ($PRESERVE)
359 0 1120 if ($todo)
363 1119 1 $match ? :
391 5 0 unless $DEBUG
393 0 0 $ok_count ? :
401 901 219 if length $text > 32