line |
true |
false |
branch |
91
|
0 |
0 |
unless (defined $errorhandler) |
98
|
0 |
0 |
unless (defined $handler) |
144
|
0 |
0 |
unless (defined $self and ref $self) |
150
|
0 |
0 |
unless ($sdb) |
172
|
0 |
0 |
unless (defined $self and ref $self) |
176
|
0 |
0 |
if ($option == 1) { } |
196
|
0 |
0 |
unless (defined $self and ref $self) |
200
|
0 |
0 |
if ($option == 1) { } |
220
|
0 |
0 |
unless (defined $self and ref $self) |
235
|
0 |
0 |
if (defined $forcerun or defined $verbose or defined $realtime or defined $debugoption or defined $debugpath or defined $cuilist) |
241
|
0 |
0 |
if (defined $debugoption) |
249
|
0 |
0 |
if (defined $t) |
254
|
0 |
0 |
if (defined $undirected) |
260
|
0 |
0 |
if (defined $cuilist) |
267
|
0 |
0 |
if (defined $debugpath) |
270
|
0 |
0 |
unless open DEBUG_FILE, ">$debugpath" |
275
|
0 |
0 |
if (defined $realtime) |
282
|
0 |
0 |
if (defined $verbose) |
289
|
0 |
0 |
if (defined $forcerun) |
295
|
0 |
0 |
if ($option_t == 0) |
311
|
0 |
0 |
unless (defined $self and ref $self) |
316
|
0 |
0 |
if ($max_depth >= 0) |
329
|
0 |
0 |
unless ($sdb) |
341
|
0 |
0 |
if (defined $depth) |
347
|
0 |
0 |
if ($option_realtime) { } |
402
|
0 |
0 |
unless (defined $self and ref $self) |
407
|
0 |
0 |
unless ($concept) |
412
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
417
|
0 |
0 |
if ($cuifinder->_forbiddenConcept($concept) == 1) |
425
|
0 |
0 |
if (exists do {
$hash
}->{$concept}{$series}) { } |
430
|
0 |
0 |
if ($d > $max_depth) |
442
|
0 |
0 |
if (not exists $maximumDepths{$concept}) { } |
|
0 |
0 |
elsif ($maximumDepths{$concept} < $d) { } |
452
|
0 |
0 |
if ($series =~ /$child/) |
453
|
0 |
0 |
if ($child eq $concept) |
473
|
0 |
0 |
unless (defined $self and ref $self) |
478
|
0 |
0 |
unless (defined $concept) |
483
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
504
|
0 |
0 |
if ($option_realtime) { } |
526
|
0 |
0 |
unless (defined $self and ref $self) |
531
|
0 |
0 |
if ($concept eq $root) |
538
|
0 |
0 |
unless ($sdb) |
568
|
0 |
0 |
unless (defined $self and ref $self) |
573
|
0 |
0 |
unless ($tableFile and $tableName and $tableNameHuman) |
579
|
0 |
0 |
unless ($sdb) |
586
|
0 |
0 |
if ($count != 0) |
608
|
0 |
0 |
unless (defined $self and ref $self) |
613
|
0 |
0 |
unless ($tableFile and $tableName and $tableNameHuman) |
619
|
0 |
0 |
unless ($sdb) |
627
|
0 |
0 |
if ($option_forcerun == 0) { } |
632
|
0 |
0 |
if ($answer =~ /(N|n)/) |
679
|
0 |
0 |
unless (defined $self and ref $self) |
688
|
0 |
0 |
unless ($cuifinder->_checkTableExists($tableName)) |
712
|
0 |
0 |
unless (defined $self and ref $self) |
718
|
0 |
0 |
unless ($sdb) |
735
|
0 |
0 |
if ($debug) |
754
|
0 |
0 |
unless (defined $self and ref $self) |
759
|
0 |
0 |
unless (defined $concept and defined $d and defined $root) |
764
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
771
|
0 |
0 |
if ($option_verbose) |
772
|
0 |
0 |
unless open TABLEFILE, ">$tableFile" |
790
|
0 |
0 |
unless ($sdb) |
798
|
0 |
0 |
if ($option_verbose) |
815
|
0 |
0 |
unless defined $self and ref $self |
821
|
0 |
0 |
unless (defined $self and ref $self) |
826
|
0 |
0 |
unless ($concept) |
831
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
862
|
0 |
0 |
if ($cuifinder->_forbiddenConcept($concept)) |
868
|
0 |
0 |
if (exists $visited{$series}) { } |
875
|
0 |
0 |
if ($option_debugpath) |
881
|
0 |
0 |
if ($concept eq $root) |
893
|
0 |
0 |
if ($#{$parents;} < 0) |
903
|
0 |
0 |
if ($series =~ /$parent/) |
904
|
0 |
0 |
if ($concept eq $parent) |
913
|
0 |
0 |
if ($stackflag == 0) |
940
|
0 |
0 |
unless (defined $self and ref $self) |
945
|
0 |
0 |
unless (defined $concept and defined $d) |
950
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
955
|
0 |
0 |
if ($cuifinder->_forbiddenConcept($concept)) |
959
|
0 |
0 |
unless ($sdb) |
974
|
0 |
0 |
if ($option_cuilist) { } |
977
|
0 |
0 |
if ($cuifinder->_inCuiList($concept)) |
989
|
0 |
0 |
if ($option_verbose) |
990
|
0 |
0 |
if ($option_cuilist) { } |
991
|
0 |
0 |
if ($cuifinder->_inCuiList($concept)) |
1006
|
0 |
0 |
if ($series =~ /$child/) |
1007
|
0 |
0 |
if ($child eq $concept) |
1012
|
0 |
0 |
if (defined $leafs) |
1013
|
0 |
0 |
if (%{$leafs;}) |
1017
|
0 |
0 |
if (defined $subsumers) |
1018
|
0 |
0 |
if (%{$subsumers;}) |
1034
|
0 |
0 |
if ($count == 0) |
1039
|
0 |
0 |
if ($#{$children;} < 0) |
1056
|
0 |
0 |
unless (defined $self and ref $self) |
1061
|
0 |
0 |
unless ($cui) |
1066
|
0 |
0 |
unless ($errorhandler->_validCui($cui)) |
1072
|
0 |
0 |
unless ($sdb) |
1075
|
0 |
0 |
if ($cuifinder->_inParentTaxonomy($cui)) |
1078
|
0 |
0 |
if ($option_realtime) { } |
1112
|
0 |
0 |
unless (defined $self and ref $self) |
1117
|
0 |
0 |
unless ($cui) |
1122
|
0 |
0 |
unless ($errorhandler->_validCui($cui)) |
1128
|
0 |
0 |
unless ($sdb) |
1133
|
0 |
0 |
if ($option_realtime) { } |
1139
|
0 |
0 |
unless ($sdb) |
1148
|
0 |
0 |
if (defined $depth) { } |
1198
|
0 |
0 |
unless (defined $self and ref $self) |
1203
|
0 |
0 |
unless (defined $concept1) |
1206
|
0 |
0 |
unless (defined $concept2) |
1211
|
0 |
0 |
unless ($errorhandler->_validCui($concept1)) |
1214
|
0 |
0 |
unless ($errorhandler->_validCui($concept2)) |
1219
|
0 |
0 |
if ($option_realtime) { } |
1242
|
0 |
0 |
unless (defined $self and ref $self) |
1247
|
0 |
0 |
unless (defined $concept1) |
1250
|
0 |
0 |
unless (defined $concept2) |
1255
|
0 |
0 |
unless ($errorhandler->_validCui($concept1)) |
1258
|
0 |
0 |
unless ($errorhandler->_validCui($concept2)) |
1268
|
0 |
0 |
if ($path =~ /C[0-9]+/) |
1292
|
0 |
0 |
unless (defined $self and ref $self) |
1297
|
0 |
0 |
unless (defined $concept1) |
1300
|
0 |
0 |
unless (defined $concept2) |
1305
|
0 |
0 |
unless ($errorhandler->_validCui($concept1)) |
1308
|
0 |
0 |
unless ($errorhandler->_validCui($concept2)) |
1321
|
0 |
0 |
unless ($rel =~ /(PAR|CHD|RB|RN)/) |
1327
|
0 |
0 |
if ($option_realtime) { } |
1337
|
0 |
0 |
if ($debug) |
1339
|
0 |
0 |
if (defined $hash) |
1342
|
0 |
0 |
if ($c =~ /C[0-9]+/) |
1366
|
0 |
0 |
unless (defined $self and ref $self) |
1371
|
0 |
0 |
unless (defined $concept1) |
1374
|
0 |
0 |
unless (defined $concept2) |
1379
|
0 |
0 |
unless ($errorhandler->_validCui($concept1)) |
1382
|
0 |
0 |
unless ($errorhandler->_validCui($concept2)) |
1417
|
0 |
0 |
if ($childstring =~ /($rel)/ and $flag == 0) |
1421
|
0 |
0 |
if ($childstring =~ /($rel)/) { } |
1429
|
0 |
0 |
if ($counter == $children) { } |
|
0 |
0 |
elsif ($counter == $parent) { } |
1460
|
0 |
0 |
unless (defined $self and ref $self) |
1465
|
0 |
0 |
unless (defined $arrayref1) |
1468
|
0 |
0 |
unless (defined $arrayref2) |
1483
|
0 |
0 |
if ($tmpString =~ / $element /) |
1505
|
0 |
0 |
unless (defined $self and ref $self) |
1510
|
0 |
0 |
unless (defined $concept1) |
1513
|
0 |
0 |
unless (defined $concept2) |
1518
|
0 |
0 |
unless ($errorhandler->_validCui($concept1)) |
1521
|
0 |
0 |
unless ($errorhandler->_validCui($concept2)) |
1533
|
0 |
0 |
if ($length == 2) { } |
1543
|
0 |
0 |
if ($split1 == 0) |
1580
|
0 |
0 |
unless (defined $self and ref $self) |
1585
|
0 |
0 |
unless (defined $paths1) |
1588
|
0 |
0 |
unless (defined $paths2) |
1613
|
0 |
0 |
if ($c1 eq $c2) |
1617
|
0 |
0 |
if (not $option_undirected) { } |
1621
|
0 |
0 |
if ($totalchanges > 1) |
1622
|
0 |
0 |
if ($dchange1 > 0 and $dchange2 > 0) |
1643
|
0 |
0 |
if ($childstring =~ /($rel)/) |
1644
|
0 |
0 |
if ($parentstring =~ /($rel)/) |
1649
|
0 |
0 |
if ($i == 0) |
1650
|
0 |
0 |
if ($childstring =~ /($rel)/) |
1655
|
0 |
0 |
if ($cr > 0 and $pr > 0) { } |
1662
|
0 |
0 |
if ($previous ne '') |
1663
|
0 |
0 |
if ($previous eq 'CHD' and $pr > 0) |
1664
|
0 |
0 |
if ($previous eq 'PAR' and $cr > 0) |
1668
|
0 |
0 |
if ($pr > 0) |
1669
|
0 |
0 |
if ($cr > 0) |
1675
|
0 |
0 |
if ($cflag == 1 and $direction >= 1) |
1679
|
0 |
0 |
if ($direction > 1) |
1720
|
0 |
0 |
unless (defined $self and ref $self) |
1725
|
0 |
0 |
unless (defined $start) |
1730
|
0 |
0 |
unless ($errorhandler->_validCui($start)) |
1781
|
0 |
0 |
if ($distance > $length) |
1787
|
0 |
0 |
if ($cuifinder->_forbiddenConcept($concept)) |
1791
|
0 |
0 |
if (exists $visited{$v}) { } |
1796
|
0 |
0 |
if ($distance == $length) |
1801
|
0 |
0 |
if ($flag == 1) { } |
|
0 |
0 |
elsif ($flag == 2) { } |
1806
|
0 |
0 |
if (exists do {
$ends
}->{$element}) |
1815
|
0 |
0 |
if ($option_debugpath) |
1830
|
0 |
0 |
unless ($option_undirected) |
1831
|
0 |
0 |
if ($relation eq 'CHD') |
1835
|
0 |
0 |
if ($dchange < 2) |
1841
|
0 |
0 |
if ($series =~ /$parent/) |
1842
|
0 |
0 |
if ($parent eq $concept) |
1857
|
0 |
0 |
unless ($option_undirected) |
1858
|
0 |
0 |
if ($relation eq 'PAR') |
1862
|
0 |
0 |
if ($dchange < 2) |
1868
|
0 |
0 |
if ($series =~ /$child/) |
1869
|
0 |
0 |
if ($child eq $concept) |
1903
|
0 |
0 |
unless (defined $self and ref $self) |
1908
|
0 |
0 |
unless (defined $concept) |
1912
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
1942
|
0 |
0 |
if ($cuifinder->_forbiddenConcept($cui)) |
1945
|
0 |
0 |
if (exists $visited{$cui}) { } |
1949
|
0 |
0 |
if ($cui eq $concept) |
1958
|
0 |
0 |
if ($series =~ /$child/) |
1959
|
0 |
0 |
if ($child eq $cui) |
1979
|
0 |
0 |
unless defined $self and ref $self |
2011
|
0 |
0 |
if ($option_debugpath) |
2017
|
0 |
0 |
if ($cuifinder->_forbiddenConcept($cui)) |
2023
|
0 |
0 |
if (exists $visited{$cui}{$series}) { } |
2030
|
0 |
0 |
if ($cui eq $root) |
2032
|
0 |
0 |
if ($length > $maximum_path_length) |
2042
|
0 |
0 |
if ($#{$parents;} < 0) |
2052
|
0 |
0 |
if ($series =~ /$parent/) |
2053
|
0 |
0 |
if ($cui eq $parent) |
2062
|
0 |
0 |
if ($stackflag == 0) |
2079
|
0 |
0 |
unless (defined $self and ref $self) |
2108
|
0 |
0 |
unless (defined $self and ref $self) |
2118
|
0 |
0 |
if ($cui eq $concept) |
2120
|
0 |
0 |
if ($d > 0) |
2143
|
0 |
0 |
unless (defined $self and ref $self) |
2147
|
0 |
0 |
if ($option_realtime) { } |
2162
|
0 |
0 |
if (defined $path) { } |
2183
|
0 |
0 |
unless (defined $self and ref $self) |
2192
|
0 |
0 |
unless ($sdb) |
2209
|
0 |
0 |
unless (defined $self and ref $self) |
2213
|
0 |
0 |
unless (defined $concept1) |
2216
|
0 |
0 |
unless (defined $concept2) |
2221
|
0 |
0 |
unless ($errorhandler->_validCui($concept1)) |
2224
|
0 |
0 |
unless ($errorhandler->_validCui($concept2)) |
2233
|
0 |
0 |
unless ($sdb) |
2259
|
0 |
0 |
unless (defined $self and ref $self) |
2264
|
0 |
0 |
unless (defined $concept1) |
2267
|
0 |
0 |
unless (defined $concept2) |
2272
|
0 |
0 |
unless ($errorhandler->_validCui($concept1)) |
2275
|
0 |
0 |
unless ($errorhandler->_validCui($concept2)) |
2317
|
0 |
0 |
unless (defined $self and ref $self) |
2322
|
0 |
0 |
if ($concept1 eq $concept2) |
2363
|
0 |
0 |
if ($#stack1 >= 0) |
2376
|
0 |
0 |
if ($#stack2 >= 0) |
2390
|
0 |
0 |
if ($c1 eq $concept2) |
2392
|
0 |
0 |
if ($#stack2 < 0) |
2397
|
0 |
0 |
if ($c2 eq $concept1) |
2399
|
0 |
0 |
if ($#stack1 < 0) |
2403
|
0 |
0 |
if ($path_length1 > -1 and $path_length2 > -1) |
2404
|
0 |
0 |
$path_length1 < $path_length2 ? : |
2410
|
0 |
0 |
if ($path_length1 > -1 and $path_length1 <= $distance2 + 2) |
2411
|
0 |
0 |
if ($path_length2 > -1 and $path_length2 <= $distance1 + 2) |
2416
|
0 |
0 |
if (exists $visited1{$c1}) { } |
2419
|
0 |
0 |
if (exists $visited2{$c2}) { } |
2423
|
0 |
0 |
if ($cui1flag == 0) |
2424
|
0 |
0 |
if ($cui2flag == 0) |
2427
|
0 |
0 |
if ($cui1flag > 0 and $cuifinder->_forbiddenConcept($c1)) |
2428
|
0 |
0 |
if ($cui2flag > 0 and $cuifinder->_forbiddenConcept($c2)) |
2431
|
0 |
0 |
if ($flag1 > 0 and $flag2 > 0) |
2439
|
0 |
0 |
unless ($option_undirected) |
2440
|
0 |
0 |
if ($relation1 eq 'CHD') |
2441
|
0 |
0 |
if ($relation2 eq 'CHD') |
2446
|
0 |
0 |
if ($flag1 == 0 and $dchange1 < 2) |
2449
|
0 |
0 |
if ($flag2 == 0 and $dchange2 < 2) |
2455
|
0 |
0 |
if ($series1 =~ /$parent1/) |
2456
|
0 |
0 |
if ($parent1 eq $c1) |
2465
|
0 |
0 |
if ($series2 =~ /$parent2/) |
2466
|
0 |
0 |
if ($parent2 eq $c2) |
2482
|
0 |
0 |
unless ($option_undirected) |
2483
|
0 |
0 |
if ($relation1 eq 'PAR') |
2484
|
0 |
0 |
if ($relation2 eq 'PAR') |
2492
|
0 |
0 |
if ($flag1 == 0 and $dchange1 < 2) |
2496
|
0 |
0 |
if ($flag2 == 0 and $dchange2 < 2) |
2502
|
0 |
0 |
if ($series1 =~ /$child1/) |
2503
|
0 |
0 |
if ($child1 eq $c1) |
2514
|
0 |
0 |
if ($series2 =~ /$child2/) |
2515
|
0 |
0 |
if ($child2 eq $c2) |
2544
|
0 |
0 |
unless (defined $self and ref $self) |
2582
|
0 |
0 |
if ($length > 0 and $distance + 2 >= $length) |
2587
|
0 |
0 |
if ($concept eq $concept2) |
2593
|
0 |
0 |
if (exists $visited{$concept}) { } |
2597
|
0 |
0 |
if ($cuifinder->_forbiddenConcept($concept)) |
2600
|
0 |
0 |
if ($option_debugpath) |
2610
|
0 |
0 |
unless ($option_undirected) |
2611
|
0 |
0 |
if ($relation eq 'CHD') |
2615
|
0 |
0 |
if ($dchange < 2) |
2620
|
0 |
0 |
if ($series =~ /$parent/) |
2621
|
0 |
0 |
if ($parent eq $concept) |
2634
|
0 |
0 |
unless ($option_undirected) |
2635
|
0 |
0 |
if ($relation eq 'PAR') |
2639
|
0 |
0 |
if ($dchange < 2) |
2645
|
0 |
0 |
if ($series =~ /$child/) |
2646
|
0 |
0 |
if ($child eq $concept) |
2681
|
0 |
0 |
unless (defined $self and ref $self) |
2686
|
0 |
0 |
unless (defined $concept1) |
2689
|
0 |
0 |
unless (defined $concept2) |
2694
|
0 |
0 |
unless ($errorhandler->_validCui($concept1)) |
2697
|
0 |
0 |
unless ($errorhandler->_validCui($concept2)) |
2713
|
0 |
0 |
if (defined $lcs) |
2729
|
0 |
0 |
if $concept eq $lcs |
2734
|
0 |
0 |
if $concept eq $lcs |
2740
|
0 |
0 |
if (exists $lcsLengths{$lcs}) { } |
2741
|
0 |
0 |
if ($lcsLengths{$lcs} >= $rCount + $lCount - 1) |
2757
|
0 |
0 |
unless (scalar keys %lcsPaths) |
2765
|
0 |
0 |
if ($prev_len == -1 or $prev_len == $lcsLengths{$lcs}) { } |
2767
|
0 |
0 |
if ($#{$pathref;} + 1 == $lcsLengths{$lcs}) |
2796
|
0 |
0 |
unless (defined $self and ref $self) |
2800
|
0 |
0 |
if ($concept1 eq $concept2) |
2843
|
0 |
0 |
if ($#stack1 >= 0) |
2856
|
0 |
0 |
if ($#stack2 >= 0) |
2872
|
0 |
0 |
if ($c1 eq $concept2) |
2874
|
0 |
0 |
if ($#stack2 < 0) |
2879
|
0 |
0 |
if ($c2 eq $concept1) |
2881
|
0 |
0 |
if ($#stack1 < 0) |
2885
|
0 |
0 |
if ($path_length1 > -1 and $path_length2 > -1) |
2890
|
0 |
0 |
if ($path_length1 > -1 and $path_length1 <= $distance2 + 2) |
2891
|
0 |
0 |
if ($path_length2 > -1 and $path_length2 <= $distance1 + 2) |
2896
|
0 |
0 |
if (exists $visited1{$c1}) { } |
2899
|
0 |
0 |
if (exists $visited2{$c2}) { } |
2903
|
0 |
0 |
if ($cui1flag == 0) |
2904
|
0 |
0 |
if ($cui2flag == 0) |
2907
|
0 |
0 |
if ($cui1flag > 0 and $cuifinder->_forbiddenConcept($c1)) |
2908
|
0 |
0 |
if ($cui2flag > 0 and $cuifinder->_forbiddenConcept($c2)) |
2911
|
0 |
0 |
if ($flag1 > 0 and $flag2 > 0) |
2914
|
0 |
0 |
if ($flag1 <= 0) |
2915
|
0 |
0 |
unless (exists $closerConceptHash{$c1}) |
2919
|
0 |
0 |
if ($flag2 <= 0) |
2920
|
0 |
0 |
unless (exists $closerConceptHash{$c2}) |
2931
|
0 |
0 |
unless ($option_undirected) |
2932
|
0 |
0 |
if ($relation1 eq 'CHD') |
2933
|
0 |
0 |
if ($relation2 eq 'CHD') |
2938
|
0 |
0 |
if ($flag1 == 0 and $dchange1 < 2) |
2941
|
0 |
0 |
if ($flag2 == 0 and $dchange2 < 2) |
2947
|
0 |
0 |
if ($series1 =~ /$parent1/) |
2948
|
0 |
0 |
if ($parent1 eq $c1) |
2957
|
0 |
0 |
if ($series2 =~ /$parent2/) |
2958
|
0 |
0 |
if ($parent2 eq $c2) |
2974
|
0 |
0 |
unless ($option_undirected) |
2975
|
0 |
0 |
if ($relation1 eq 'PAR') |
2976
|
0 |
0 |
if ($relation2 eq 'PAR') |
2984
|
0 |
0 |
if ($flag1 == 0 and $dchange1 < 2) |
2988
|
0 |
0 |
if ($flag2 == 0 and $dchange2 < 2) |
2994
|
0 |
0 |
if ($series1 =~ /$child1/) |
2995
|
0 |
0 |
if ($child1 eq $c1) |
3006
|
0 |
0 |
if ($series2 =~ /$child2/) |
3007
|
0 |
0 |
if ($child2 eq $c2) |
3017
|
0 |
0 |
if ($path_length1 < 0 and $path_length2 < 0) |
3019
|
0 |
0 |
$path_length1 < $path_length2 ? : |
3021
|
0 |
0 |
if ($path_length1 < 0) |
3022
|
0 |
0 |
if ($path_length2 < 0) |
3026
|
0 |
0 |
if ($closerConceptHash{$cui} < $length) |
3043
|
0 |
0 |
unless (defined $self and ref $self) |
3047
|
0 |
0 |
unless (defined $concept) |
3051
|
0 |
0 |
unless ($errorhandler->_validCui($concept)) |
3085
|
0 |
0 |
if ($option_debugpath) |
3096
|
0 |
0 |
if ($cui eq $child) |
3102
|
0 |
0 |
if ($flag == 0) |
3104
|
0 |
0 |
if ($cuifinder->_forbiddenConcept($child) == 1) |