Branch Coverage

blib/lib/UMLS/Interface/PathFinder.pm
Criterion Covered Total %
branch 0 688 0.0


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)