| line |
true |
false |
branch |
|
13731
|
0 |
1 |
if length $tagID > 500 |
|
13732
|
1 |
0 |
unless ($tagInfo) |
|
13737
|
0 |
1 |
unless (ref $strTable) |
|
13740
|
0 |
0 |
unless $strTable |
|
13741
|
0 |
0 |
unless $strTable->{'STRUCT_NAME'} |
|
13746
|
1 |
0 |
unless exists $strTable->{'NAMESPACE'} |
|
13749
|
2 |
1 |
if $specialStruct{$field} |
|
13755
|
1 |
0 |
if ref $fieldInfo eq "HASH" |
|
13756
|
1 |
0 |
unless $flatName |
|
13757
|
1 |
0 |
$flatInfo && $flatInfo->{'Name'} ? : |
|
13761
|
1 |
0 |
unless ref $fieldInfo eq "HASH" and $fieldInfo->{'Struct'} |
|
13776
|
5 |
0 |
unless (%tableNumHash) |
|
13786
|
2 |
4 |
unless (defined $tnum) |
|
13794
|
21 |
0 |
if (ref $newInfo eq 'HASH') { } |
|
13795
|
4 |
17 |
unless $newInfo->{'Name'} |
|
13797
|
13 |
8 |
if defined $newInfo->{'NewTagID'} |
|
13804
|
1 |
20 |
if ($newInfo->{'Struct'}) |
|
13805
|
0 |
1 |
$newInfo->{'FlatName'} ? : |
|
13812
|
8 |
14 |
unless $lookup |
|
13813
|
1 |
21 |
if ($lookup->{$tnum}) { } |
|
13815
|
0 |
1 |
ref $le eq 'ARRAY' ? : |
|
13816
|
1 |
0 |
if (ref $tagID) { } |
|
|
0 |
0 |
elsif (grep /^$tagID$/, @$ids) { } |
|
13820
|
1 |
0 |
unless ref $ids->[0] |
|
13823
|
0 |
0 |
unless $isFlat |
|
13828
|
1 |
0 |
if @$ids > 1 |
|
13832
|
20 |
2 |
unless @tagIDs |
|
13836
|
1 |
1 |
unless $tagTablePtr->{$tagID} |
|
13837
|
1 |
0 |
unless @tagIDs |
|
13842
|
20 |
1 |
if $existed or not $newInfo->{'SubDirectory'} |
|
13844
|
0 |
1 |
unless $subTable and not defined $tableNumHash{$subTable} |
|
13845
|
0 |
1 |
if $moreTableRefs{$subTable} |
|
13847
|
0 |
1 |
unless %$subTable |
|
13854
|
5 |
1 |
unless $table = shift @moreTables |
|
13866
|
1321 |
47 |
if $tagExists{$tag} or $tagLookup{$tag} |
|
13882
|
4 |
7103 |
if (not $lookup and $lcTag =~ /[?*]/) |
|
13888
|
4 |
0 |
if (@tags) |
|
13898
|
10452 |
64895 |
if (ref $le eq 'ARRAY') { } |
|
13903
|
5393 |
5059 |
if (ref $tagIDs->[0]) |
|
13914
|
2 |
78013 |
unless (@infoList) |
|
13918
|
2 |
0 |
if ($writeProc) |
|
13920
|
2 |
0 |
if &$writeProc() |
|
13924
|
2 |
0 |
if $compMod and eval "require $compMod" |
|
13925
|
2 |
0 |
if $reload |
|
13927
|
75205 |
2810 |
if (@infoList == 1) { } |
|
|
2810 |
0 |
elsif (@infoList > 1) { } |
|
13933
|
60940 |
1991 |
unless $lcTag eq lc $tagInfo->{'Name'} |
|
13941
|
7107 |
0 |
if (wantarray) { } |