| line |
true |
false |
branch |
|
45
|
0 |
0 |
$num =~ /^0x/ ? :
|
|
56
|
51 |
116 |
if defined $vals[1]
|
|
100
|
0 |
1 |
if not defined $file or $file eq ''
|
|
103
|
0 |
1 |
$encoding ? :
|
|
106
|
1 |
0 |
unless open my $eds, $encoding, $file
|
|
110
|
0 |
0 |
unless defined $contents
|
|
111
|
0 |
0 |
unless eds2xdd_string($contents)
|
|
135
|
0 |
9 |
if ($eds->{'Comments'})
|
|
177
|
2 |
0 |
unless ($section =~ /([[:xdigit:]]{4})(?:sub([[:xdigit:]]))|([[:xdigit:]]{4})/)
|
|
186
|
0 |
0 |
if (not defined $subindex) { }
|
|
187
|
0 |
0 |
if $in_sublist
|
|
188
|
0 |
0 |
if (not $in_6000 and hex $index >= 24576) { }
|
|
|
0 |
0 |
elsif (not $in_2000 and hex $index >= 8192) { }
|
|
|
0 |
0 |
elsif (not $in_1000 and hex $index >= 4096) { }
|
|
203
|
0 |
0 |
if ($sections[$section_index + 1] =~ /^${index}sub/) { }
|
|
215
|
0 |
9 |
if $in_sublist
|
|
220
|
9 |
0 |
if ($xdd =~ s/^([ \t]+?)\$ObjectList/\$ObjectList/m)
|