| 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'}) { } |