| line |
true |
false |
branch |
|
26
|
0 |
0 |
@_ % 2 ? : |
|
31
|
0 |
0 |
unless defined $source |
|
32
|
0 |
0 |
if (not ref $source) { } |
|
36
|
0 |
0 |
unless open $source, '<', $filename |
|
39
|
0 |
0 |
unless (defined eval {
do {
fileno $source
}
}) |
|
42
|
0 |
0 |
unless open $source, '<', \$string |
|
63
|
0 |
0 |
unless defined(my $line = readline $$self{'in_fh'}) |
|
90
|
0 |
0 |
if ($$CL =~ /^\s*#{/) |
|
92
|
0 |
0 |
if $$CL =~ /^\s*#}/ |
|
109
|
0 |
0 |
if length $$CL |
|
125
|
0 |
0 |
if ($cr) { } |
|
128
|
0 |
0 |
if ($$CL =~ s/^\s*\}\}\}(?:#([\.\w]+);)?//) |
|
129
|
0 |
0 |
if $1 and $1 ne $tag |
|
139
|
0 |
0 |
unless $$CL =~ s/(.*?)}}}// |