| line |
true |
false |
branch |
|
12211
|
0 |
1 |
if length $tagID > 500 |
|
12212
|
1 |
0 |
unless ($tagInfo) |
|
12217
|
0 |
1 |
unless (ref $strTable) |
|
12220
|
0 |
0 |
unless $strTable |
|
12221
|
0 |
0 |
unless $strTable->{'STRUCT_NAME'} |
|
12226
|
1 |
0 |
unless exists $strTable->{'NAMESPACE'} |
|
12229
|
2 |
1 |
if $specialStruct{$field} |
|
12235
|
1 |
0 |
if ref $fieldInfo eq "HASH" |
|
12236
|
1 |
0 |
unless $flatName |
|
12237
|
1 |
0 |
$flatInfo && $flatInfo->{'Name'} ? : |
|
12241
|
1 |
0 |
unless ref $fieldInfo eq "HASH" and $fieldInfo->{'Struct'} |
|
12256
|
4 |
0 |
unless (%tableNumHash) |
|
12266
|
2 |
3 |
unless (defined $tnum) |
|
12274
|
20 |
0 |
if (ref $newInfo eq 'HASH') { } |
|
12275
|
3 |
17 |
unless $newInfo->{'Name'} |
|
12277
|
13 |
7 |
if defined $newInfo->{'NewTagID'} |
|
12284
|
1 |
19 |
if ($newInfo->{'Struct'}) |
|
12291
|
7 |
14 |
unless $lookup |
|
12292
|
1 |
20 |
if ($lookup->{$tnum}) { } |
|
12294
|
0 |
1 |
ref $le eq 'ARRAY' ? : |
|
12295
|
1 |
0 |
if (ref $tagID) { } |
|
|
0 |
0 |
elsif (grep /^$tagID$/, @$ids) { } |
|
12299
|
1 |
0 |
unless ref $ids->[0] |
|
12302
|
0 |
0 |
unless $isFlat |
|
12307
|
1 |
0 |
if @$ids > 1 |
|
12311
|
19 |
2 |
unless @tagIDs |
|
12315
|
1 |
1 |
unless $tagTablePtr->{$tagID} |
|
12316
|
1 |
0 |
unless @tagIDs |
|
12321
|
19 |
1 |
if $existed or not $newInfo->{'SubDirectory'} |
|
12323
|
0 |
1 |
unless $subTable and not defined $tableNumHash{$subTable} |
|
12324
|
0 |
1 |
if $moreTableRefs{$subTable} |
|
12326
|
0 |
1 |
unless %$subTable |
|
12333
|
4 |
1 |
unless $table = shift @moreTables |
|
12345
|
1323 |
49 |
if $tagExists{$tag} or $tagLookup{$tag} |
|
12361
|
4 |
6700 |
if (not $lookup and $lcTag =~ /[?*]/) |
|
12367
|
4 |
0 |
if (@tags) |
|
12377
|
9256 |
58982 |
if (ref $le eq 'ARRAY') { } |
|
12382
|
4713 |
4543 |
if (ref $tagIDs->[0]) |
|
12393
|
2 |
70745 |
unless (@infoList) |
|
12397
|
2 |
0 |
if ($writeProc) |
|
12399
|
2 |
0 |
if &$writeProc() |
|
12403
|
2 |
0 |
if $compMod and eval "require $compMod" |
|
12404
|
2 |
0 |
if $reload |
|
12406
|
68145 |
2602 |
if (@infoList == 1) { } |
|
|
2602 |
0 |
elsif (@infoList > 1) { } |
|
12412
|
56920 |
1870 |
unless $lcTag eq lc $tagInfo->{'Name'} |
|
12420
|
6704 |
0 |
if (wantarray) { } |