| line |
true |
false |
branch |
|
12593
|
0 |
1 |
if length $tagID > 500 |
|
12594
|
1 |
0 |
unless ($tagInfo) |
|
12599
|
0 |
1 |
unless (ref $strTable) |
|
12602
|
0 |
0 |
unless $strTable |
|
12603
|
0 |
0 |
unless $strTable->{'STRUCT_NAME'} |
|
12608
|
1 |
0 |
unless exists $strTable->{'NAMESPACE'} |
|
12611
|
2 |
1 |
if $specialStruct{$field} |
|
12617
|
1 |
0 |
if ref $fieldInfo eq "HASH" |
|
12618
|
1 |
0 |
unless $flatName |
|
12619
|
1 |
0 |
$flatInfo && $flatInfo->{'Name'} ? : |
|
12623
|
1 |
0 |
unless ref $fieldInfo eq "HASH" and $fieldInfo->{'Struct'} |
|
12638
|
5 |
0 |
unless (%tableNumHash) |
|
12648
|
2 |
4 |
unless (defined $tnum) |
|
12656
|
21 |
0 |
if (ref $newInfo eq 'HASH') { } |
|
12657
|
4 |
17 |
unless $newInfo->{'Name'} |
|
12659
|
13 |
8 |
if defined $newInfo->{'NewTagID'} |
|
12666
|
1 |
20 |
if ($newInfo->{'Struct'}) |
|
12667
|
0 |
1 |
$newInfo->{'FlatName'} ? : |
|
12674
|
8 |
14 |
unless $lookup |
|
12675
|
1 |
21 |
if ($lookup->{$tnum}) { } |
|
12677
|
0 |
1 |
ref $le eq 'ARRAY' ? : |
|
12678
|
0 |
1 |
if (ref $tagID) { } |
|
|
0 |
1 |
elsif (grep /^$tagID$/, @$ids) { } |
|
12682
|
0 |
0 |
unless ref $ids->[0] |
|
12685
|
0 |
0 |
unless $isFlat |
|
12690
|
1 |
0 |
if @$ids > 1 |
|
12694
|
20 |
2 |
unless @tagIDs |
|
12698
|
1 |
1 |
unless $tagTablePtr->{$tagID} |
|
12699
|
1 |
0 |
unless @tagIDs |
|
12704
|
20 |
1 |
if $existed or not $newInfo->{'SubDirectory'} |
|
12706
|
0 |
1 |
unless $subTable and not defined $tableNumHash{$subTable} |
|
12707
|
0 |
1 |
if $moreTableRefs{$subTable} |
|
12709
|
0 |
1 |
unless %$subTable |
|
12716
|
5 |
1 |
unless $table = shift @moreTables |
|
12728
|
1317 |
49 |
if $tagExists{$tag} or $tagLookup{$tag} |
|
12744
|
4 |
6734 |
if (not $lookup and $lcTag =~ /[?*]/) |
|
12750
|
4 |
0 |
if (@tags) |
|
12760
|
9406 |
59896 |
if (ref $le eq 'ARRAY') { } |
|
12765
|
4785 |
4621 |
if (ref $tagIDs->[0]) |
|
12776
|
2 |
71856 |
unless (@infoList) |
|
12780
|
2 |
0 |
if ($writeProc) |
|
12782
|
2 |
0 |
if &$writeProc() |
|
12786
|
2 |
0 |
if $compMod and eval "require $compMod" |
|
12787
|
2 |
0 |
if $reload |
|
12789
|
69199 |
2659 |
if (@infoList == 1) { } |
|
|
2659 |
0 |
elsif (@infoList > 1) { } |
|
12795
|
57197 |
1913 |
unless $lcTag eq lc $tagInfo->{'Name'} |
|
12803
|
6738 |
0 |
if (wantarray) { } |