line |
true |
false |
branch |
26
|
0 |
0 |
if (defined $isofile) |
37
|
0 |
0 |
if (not dbmopen(%{$$self{'termdbm'};}, "$isofile.term", undef)) { } |
40
|
0 |
0 |
unless CORE::open THESFILE, $isofile |
51
|
0 |
0 |
unless CORE::open THESFILE, $isofile |
54
|
0 |
0 |
if $debug |
57
|
0 |
0 |
if $debug |
61
|
0 |
0 |
if ($line eq '$$') { } |
|
0 |
0 |
elsif ($line =~ /TERM\s+(.*)/) { } |
|
0 |
0 |
elsif ($line =~ /ALT\s+(.*)/) { } |
|
0 |
0 |
elsif ($line =~ /UKALT\s+(.*)/) { } |
|
0 |
0 |
elsif ($line =~ /UK\s+(.*)/) { } |
|
0 |
0 |
elsif ($line =~ /UF\s+(.*)/) { } |
|
0 |
0 |
elsif ($line =~ /BT\s+(.*)/) { } |
62
|
0 |
0 |
if ($first) |
66
|
0 |
0 |
if $debug |
72
|
0 |
0 |
if $debug |
73
|
0 |
0 |
if (not defined $$self{'broaddbm'}{"$term"}) { } |
83
|
0 |
0 |
if $debug |
118
|
0 |
0 |
if $debug |
122
|
0 |
0 |
if ($line =~ /^\$\$/) |
125
|
0 |
0 |
if ($line =~ /([a-zA-Z0-9]+)\s+(.*)/) |
129
|
0 |
0 |
if $attrib eq 'ALT' |
130
|
0 |
0 |
if $attrib eq 'SN' |
131
|
0 |
0 |
if $attrib eq 'UKALT' |
132
|
0 |
0 |
if (not defined $thesaurusrecord{"$attrib"}) { } |
170
|
0 |
0 |
if (defined $record{'DATENT'}) { } |
184
|
0 |
0 |
if (defined $record{'DATCHG'}) { } |