| line |
true |
false |
branch |
|
49
|
23 |
0 |
if ref $self |
|
64
|
23 |
0 |
if (ref $file eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (ref $file eq 'ARRAY') { } |
|
69
|
0 |
0 |
unless open F, "<$file" |
|
77
|
25 |
214 |
if /^\s*$/ or /^\s*#/ |
|
78
|
0 |
214 |
if /^\s*\[\%\s*\#|^\s*-*\%\]/ |
|
81
|
0 |
214 |
if $term eq "charset" and $line =~ /^utf/ |
|
82
|
0 |
214 |
if $utf8 |
|
85
|
3 |
211 |
if ($here) { } |
|
86
|
1 |
2 |
if ($term eq $here) { } |
|
96
|
120 |
91 |
if $term =~ s/^(\s+)// |
|
100
|
91 |
120 |
if ($s == 1) { } |
|
|
24 |
96 |
elsif ($s <= $lsp) { } |
|
113
|
1 |
159 |
if ($s >= $psp and $inval and not length $line) |
|
122
|
132 |
81 |
if (length $line) { } |
|
128
|
1 |
131 |
if ($line =~ /^<<(.+)/) { } |
|
|
2 |
129 |
elsif ($here) { } |
|
138
|
8 |
121 |
if ($term =~ /^js/ or $term =~ /^on[a-z]/ or $term eq 'messages' or $term eq 'comment') { } |
|
|
2 |
119 |
elsif ($line =~ s/^\\(.)//) { } |
|
147
|
0 |
2 |
if ($self->{'caller'}) { } |
|
154
|
2 |
0 |
unless $line =~ /::/ |
|
157
|
0 |
2 |
if $@ |
|
164
|
25 |
196 |
if $val[$i] =~ /=/ |
|
169
|
1 |
128 |
if ($ptr->{$term}) { } |
|
171
|
0 |
0 |
ref $val[0] eq 'ARRAY' ? : |
|
|
0 |
0 |
@val > 1 ? : |
|
|
1 |
0 |
ref $ptr->{$term} ? : |
|
174
|
1 |
97 |
ref $val[0] eq 'ARRAY' ? : |
|
|
30 |
98 |
@val > 1 ? : |
|
181
|
15 |
66 |
if ($term eq 'fields') { } |
|
|
41 |
25 |
elsif ($refield) { } |
|
198
|
23 |
0 |
if (ref $self) |
|
201
|
23 |
0 |
unless exists $ret->{$k} |
|
209
|
0 |
23 |
wantarray ? : |
|
218
|
0 |
0 |
unless open M, ">$out" |