| line |
true |
false |
branch |
|
33
|
1 |
2 |
if (@_ == 1 and ref $_[0] eq 'HASH') { }
|
|
63
|
0 |
4 |
unless open my $fh, '<:crlf', $file
|
|
73
|
40 |
3191 |
unless $thesaurus_name //= do {
s/^BEGIN_REL THES_NAME=(.*)//;
$1
}
|
|
77
|
4 |
3187 |
if /^END_REL/
|
|
82
|
3187 |
422 |
unless s/\+\n$/<$fh>;/e
|
|
89
|
13 |
3174 |
if /^\s*$/
|
|
91
|
0 |
3174 |
unless my($rel_id, $term_string) = $_ =~ /^([A-Z]+)\d*\s*=\s*(.+?)\s*$/
|
|
94
|
1233 |
1941 |
if ($rel_id eq 'LT') { }
|
|
96
|
1229 |
4 |
if keys %term
|
|
107
|
4 |
0 |
if keys %term
|
|
125
|
0 |
606 |
unless my $rel_type = $rel_types->{$rel_id}
|
|
130
|
379 |
227 |
unless ($is_external)
|