Branch Coverage

blib/lib/TRD/Velocity.pm
Criterion Covered Total %
branch 36 62 58.0


line true false branch
92 0 0 unless open my $fh, '<', $$self{'templateFile'}
135 0 6 if ($debug) { }
165 2 6 if (scalar @s >= 3) { }
170 2 6 if (scalar @s >= 2)
173 1 1 if ($tag eq '#if') { }
1 0 elsif ($tag eq '#foreach') { }
179 8 0 if (scalar @s >= 1)
202 1 0 if ($$self{'command'} =~ /^\((.*?)\)(.*)/s)
209 0 3 if ($joken =~ s/\$([\w\.-]+)\[(\d+)\]\.([\w\.-]+)\[(\d+)\]\.([\w\.-]+)/\$self->{params}->{$1}[$2]->{$3}[$4]->{$5}/g) { }
0 3 elsif ($joken =~ s/\$([\w\.-]+)\[(\d+)\]\.([\w\.-]+)/\$self->{params}->{$1}[$2]->{$3}/g) { }
0 3 elsif ($joken =~ s/\$([\w\.-]+)\.([\w\.-]+)/\$self->{params}->{$1}->{$2}/g) { }
1 2 elsif ($joken =~ s/\$([\w\.-]+)/\$self->{params}->{$1}/g) { }
223 1 0 if ($stat) { }
224 0 1 if ($debug) { }
230 0 0 if ($debug) { }
255 1 0 if ($$self{'command'} =~ /^\((.*?)\)(.*)$/s)
259 1 0 if ($joken =~ /^\s*\$(\w+?)\s+in\s+\$([\w\.\[\]]+?)\s*$/)
273 0 1 if ($@)
277 1 0 if ($stat) { }
317 0 3 if ($tag eq '#if' or $tag eq '#foreach') { }
2 1 elsif ($tag eq '#end') { }
1 0 elsif ($tag eq '#else') { }
320 2 0 if ($if == 0)
325 1 0 if ($if == 0)
335 1 1 if ($mode == 0) { }
355 1 13 if ($param =~ s/\.escape\(\)$//g) { }
1 12 elsif ($param =~ s/\.unescape\(\)$//g) { }
366 13 1 if ($escape)
367 13 0 if (defined $retstr)
393 0 0 if (defined $$self{'templateFile'})
396 0 0 if (defined $$self{'templateData'})