| line |
true |
false |
branch |
|
13838
|
0 |
1 |
if length $tagID > 500 |
|
13839
|
1 |
0 |
unless ($tagInfo) |
|
13844
|
0 |
1 |
unless (ref $strTable) |
|
13847
|
0 |
0 |
unless $strTable |
|
13848
|
0 |
0 |
unless $strTable->{'STRUCT_NAME'} |
|
13853
|
1 |
0 |
unless exists $strTable->{'NAMESPACE'} |
|
13856
|
2 |
1 |
if $specialStruct{$field} |
|
13862
|
1 |
0 |
if ref $fieldInfo eq "HASH" |
|
13863
|
1 |
0 |
unless $flatName |
|
13864
|
1 |
0 |
$flatInfo && $flatInfo->{'Name'} ? : |
|
13868
|
1 |
0 |
unless ref $fieldInfo eq "HASH" and $fieldInfo->{'Struct'} |
|
13883
|
5 |
0 |
unless (%tableNumHash) |
|
13893
|
2 |
4 |
unless (defined $tnum) |
|
13901
|
21 |
0 |
if (ref $newInfo eq 'HASH') { } |
|
13902
|
4 |
17 |
unless $newInfo->{'Name'} |
|
13904
|
13 |
8 |
if defined $newInfo->{'NewTagID'} |
|
13911
|
1 |
20 |
if ($newInfo->{'Struct'}) |
|
13912
|
0 |
1 |
$newInfo->{'FlatName'} ? : |
|
13919
|
8 |
14 |
unless $lookup |
|
13920
|
1 |
21 |
if ($lookup->{$tnum}) { } |
|
13922
|
0 |
1 |
ref $le eq 'ARRAY' ? : |
|
13923
|
1 |
0 |
if (ref $tagID) { } |
|
|
0 |
0 |
elsif (grep /^$tagID$/, @$ids) { } |
|
13927
|
1 |
0 |
unless ref $ids->[0] |
|
13930
|
0 |
0 |
unless $isFlat |
|
13935
|
1 |
0 |
if @$ids > 1 |
|
13939
|
20 |
2 |
unless @tagIDs |
|
13943
|
1 |
1 |
unless $tagTablePtr->{$tagID} |
|
13944
|
1 |
0 |
unless @tagIDs |
|
13949
|
20 |
1 |
if $existed or not $newInfo->{'SubDirectory'} |
|
13951
|
0 |
1 |
unless $subTable and not defined $tableNumHash{$subTable} |
|
13952
|
0 |
1 |
if $moreTableRefs{$subTable} |
|
13954
|
0 |
1 |
unless %$subTable |
|
13961
|
5 |
1 |
unless $table = shift @moreTables |
|
13973
|
1321 |
47 |
if $tagExists{$tag} or $tagLookup{$tag} |
|
13989
|
4 |
7103 |
if (not $lookup and $lcTag =~ /[?*]/) |
|
13995
|
4 |
0 |
if (@tags) |
|
14005
|
10467 |
65008 |
if (ref $le eq 'ARRAY') { } |
|
14010
|
5403 |
5064 |
if (ref $tagIDs->[0]) |
|
14021
|
2 |
78141 |
unless (@infoList) |
|
14025
|
2 |
0 |
if ($writeProc) |
|
14027
|
2 |
0 |
if &$writeProc() |
|
14031
|
2 |
0 |
if $compMod and eval "require $compMod" |
|
14032
|
2 |
0 |
if $reload |
|
14034
|
75333 |
2810 |
if (@infoList == 1) { } |
|
|
2810 |
0 |
elsif (@infoList > 1) { } |
|
14040
|
60940 |
1991 |
unless $lcTag eq lc $tagInfo->{'Name'} |
|
14048
|
7107 |
0 |
if (wantarray) { } |