| line |
true |
false |
branch |
|
48
|
23 |
0 |
if ref $self |
|
63
|
23 |
0 |
if (ref $file eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (ref $file eq 'ARRAY') { } |
|
68
|
0 |
0 |
unless open F, "<$file" |
|
76
|
25 |
214 |
if /^\s*$/ or /^\s*#/ |
|
77
|
0 |
214 |
if /^\s*\[\%\s*\#|^\s*-*\%\]/ |
|
80
|
0 |
214 |
if $term eq 'charset' and $line =~ /^utf/ |
|
81
|
0 |
214 |
if $utf8 |
|
84
|
3 |
211 |
if ($here) { } |
|
85
|
1 |
2 |
if ($term eq $here) { } |
|
95
|
120 |
91 |
if $term =~ s/^(\s+)// |
|
99
|
91 |
120 |
if ($s == 1) { } |
|
|
24 |
96 |
elsif ($s <= $lsp) { } |
|
112
|
1 |
159 |
if ($s >= $psp and $inval and not length $line) |
|
121
|
132 |
81 |
if (length $line) { } |
|
127
|
1 |
131 |
if ($line =~ /^<<(.+)/) { } |
|
|
2 |
129 |
elsif ($here) { } |
|
137
|
8 |
121 |
if ($term =~ /^js/ or $term =~ /^on[a-z]/ or $term eq 'messages' or $term eq 'comment') { } |
|
|
2 |
119 |
elsif ($line =~ s/^\\(.)//) { } |
|
146
|
0 |
2 |
if ($self->{'caller'}) { } |
|
153
|
2 |
0 |
unless $line =~ /::/ |
|
156
|
0 |
2 |
if $@ |
|
163
|
25 |
196 |
if $val[$i] =~ /=/ |
|
168
|
1 |
128 |
if ($ptr->{$term}) { } |
|
170
|
0 |
0 |
ref $val[0] eq 'ARRAY' ? : |
|
|
0 |
0 |
@val > 1 ? : |
|
|
1 |
0 |
ref $ptr->{$term} ? : |
|
173
|
1 |
97 |
ref $val[0] eq 'ARRAY' ? : |
|
|
30 |
98 |
@val > 1 ? : |
|
180
|
15 |
66 |
if ($term eq 'fields') { } |
|
|
41 |
25 |
elsif ($refield) { } |
|
197
|
23 |
0 |
if (ref $self) |
|
200
|
23 |
0 |
unless exists $ret->{$k} |
|
208
|
0 |
23 |
wantarray ? : |
|
217
|
0 |
0 |
unless open M, ">$out" |