Branch Coverage

blib/lib/Template/Extract/Compile.pm
Criterion Covered Total %
branch 19 26 73.0


line true false branch
23 13 0 if (defined $template)
25 0 13 if UNIVERSAL::isa($template, "SCALAR")
57 1 12 if ($EXACT)
80 8 33 if ($seen{join $;, $2, $4}) { }
85 2 31 if ($+[0] == length $regex) { }
103 4 23 if ($vars{$_}) { }
128 8 41 if $_[1] =~ m[^/(.*)/$]
141 2 2 if ($_[1][1] =~ m[^/(.*)/$])
152 2 2 if (defined $regex) { }
166 0 25 unless $_[1]
177 0 10 if ($token =~ /^'(.+)'$/) { }
199 14 0 unless $DEBUG
209 0 0 ref $_[$arg] ? :