| line |
true |
false |
branch |
|
12431
|
0 |
1 |
if length $tagID > 500 |
|
12432
|
1 |
0 |
unless ($tagInfo) |
|
12437
|
0 |
1 |
unless (ref $strTable) |
|
12440
|
0 |
0 |
unless $strTable |
|
12441
|
0 |
0 |
unless $strTable->{'STRUCT_NAME'} |
|
12446
|
1 |
0 |
unless exists $strTable->{'NAMESPACE'} |
|
12449
|
2 |
1 |
if $specialStruct{$field} |
|
12455
|
1 |
0 |
if ref $fieldInfo eq "HASH" |
|
12456
|
1 |
0 |
unless $flatName |
|
12457
|
1 |
0 |
$flatInfo && $flatInfo->{'Name'} ? : |
|
12461
|
1 |
0 |
unless ref $fieldInfo eq "HASH" and $fieldInfo->{'Struct'} |
|
12476
|
4 |
0 |
unless (%tableNumHash) |
|
12486
|
2 |
3 |
unless (defined $tnum) |
|
12494
|
20 |
0 |
if (ref $newInfo eq 'HASH') { } |
|
12495
|
3 |
17 |
unless $newInfo->{'Name'} |
|
12497
|
13 |
7 |
if defined $newInfo->{'NewTagID'} |
|
12504
|
1 |
19 |
if ($newInfo->{'Struct'}) |
|
12511
|
7 |
14 |
unless $lookup |
|
12512
|
1 |
20 |
if ($lookup->{$tnum}) { } |
|
12514
|
0 |
1 |
ref $le eq 'ARRAY' ? : |
|
12515
|
1 |
0 |
if (ref $tagID) { } |
|
|
0 |
0 |
elsif (grep /^$tagID$/, @$ids) { } |
|
12519
|
1 |
0 |
unless ref $ids->[0] |
|
12522
|
0 |
0 |
unless $isFlat |
|
12527
|
1 |
0 |
if @$ids > 1 |
|
12531
|
19 |
2 |
unless @tagIDs |
|
12535
|
1 |
1 |
unless $tagTablePtr->{$tagID} |
|
12536
|
1 |
0 |
unless @tagIDs |
|
12541
|
19 |
1 |
if $existed or not $newInfo->{'SubDirectory'} |
|
12543
|
0 |
1 |
unless $subTable and not defined $tableNumHash{$subTable} |
|
12544
|
0 |
1 |
if $moreTableRefs{$subTable} |
|
12546
|
0 |
1 |
unless %$subTable |
|
12553
|
4 |
1 |
unless $table = shift @moreTables |
|
12565
|
1317 |
49 |
if $tagExists{$tag} or $tagLookup{$tag} |
|
12581
|
4 |
6752 |
if (not $lookup and $lcTag =~ /[?*]/) |
|
12587
|
4 |
0 |
if (@tags) |
|
12597
|
9391 |
59371 |
if (ref $le eq 'ARRAY') { } |
|
12602
|
4785 |
4606 |
if (ref $tagIDs->[0]) |
|
12613
|
2 |
71301 |
unless (@infoList) |
|
12617
|
2 |
0 |
if ($writeProc) |
|
12619
|
2 |
0 |
if &$writeProc() |
|
12623
|
2 |
0 |
if $compMod and eval "require $compMod" |
|
12624
|
2 |
0 |
if $reload |
|
12626
|
68692 |
2611 |
if (@infoList == 1) { } |
|
|
2611 |
0 |
elsif (@infoList > 1) { } |
|
12632
|
56965 |
1872 |
unless $lcTag eq lc $tagInfo->{'Name'} |
|
12640
|
6756 |
0 |
if (wantarray) { } |