Branch Coverage

blib/lib/OBO/Core/Ontology.pm
Criterion Covered Total %
branch 482 812 59.3


line true false branch
75 2 38 if ($id)
90 0 0 if ($name)
105 1 28 if (scalar @_ > 1) { }
1 27 elsif (scalar @_ == 1) { }
125 1 61 if (scalar @_ > 1) { }
0 61 elsif (scalar @_ == 1) { }
145 1 61 if (scalar @_ > 1) { }
0 61 elsif (scalar @_ == 1) { }
165 10 22 if ($d)
181 1 47 if ($drip)
196 12 46 if ($dns)
211 5 81 if (scalar @_ > 1) { }
8 73 elsif (scalar @_ == 1) { }
230 2 19 if ($dv)
245 21 14 if ($sb)
260 1 56 if (scalar @_ > 1) { }
21 35 elsif (scalar @_ == 1) { }
294 6 55 if (scalar @_ > 1) { }
1 54 elsif (scalar @_ == 1) { }
314 2293 0 if ($term) { }
316 2293 0 if ($term_id) { }
339 18 0 if ($instance) { }
341 18 0 if (defined $instance_id) { }
364 1 0 if (@_) { }
366 1 0 if (not $self->has_term_id($term_id)) { }
368 0 1 unless $term_id
393 1 0 if (@_) { }
395 1 0 if (not $self->has_instance_id($instance_id)) { }
397 0 1 unless $instance_id
422 142 0 if ($relationship_type) { }
444 27 0 if (@_) { }
447 0 27 unless $relationship_type_id
449 27 0 if (not $self->has_relationship_type_id($relationship_type_id)) { }
477 5 0 if ($term)
478 0 5 unless $term->id
481 3 2 if (defined $id and defined $$self{'TERMS'}{$id})
507 2 0 if ($instance)
508 0 2 unless $instance->id
511 1 1 if (defined $id and defined $$self{'INSTANCES'}{$id})
532 56 0 if ($relationship)
533 0 56 unless $relationship->id
536 56 0 if (defined $id and defined $$self{'RELATIONSHIPS'}{$id})
687 6 88 if (@_) { }
689 19 11 if $term->id =~ /$_[0]/
713 6 40 if (@_) { }
715 19 11 if $instance->id =~ /$_[0]/
768 2 0 if (@_)
770 0 2 if (not defined $is) { }
791 2 0 if (@_)
793 0 2 if (not defined $is) { }
816 2 2 if $ss =~ /$subset/
836 2 2 if $ss =~ /$subset/
914 9 0 if ($term)
915 1 8 if ($rel_type) { }
947 99 0 if ($term)
948 1 98 if ($rel_type) { }
1006 3 0 if ($term and $new_term_id)
1007 3 0 if ($self->has_term($term)) { }
1008 3 0 if (not $self->has_term_id($new_term_id)) { }
1057 2 0 if ($instance and $new_instance_id)
1058 2 0 if ($self->has_instance($instance)) { }
1059 2 0 if (not $self->has_instance_id($new_instance_id)) { }
1086 4689 0 if $id
1102 12 0 if ($name)
1104 12 881 if defined $term->name and $term->name eq $name
1123 4 0 if ($name)
1125 4 6 if defined $instance->name and $instance->name eq $name
1144 8 0 if ($name_or_synonym)
1149 0 20 if (defined $t_name and lc $t_name eq $name_or_synonym)
1155 5 15 if ($scope eq 'ANY' and $s_text eq $name_or_synonym or $syn->scope eq $scope and $s_text eq $name_or_synonym)
1178 8 0 if ($name_or_synonym)
1183 0 20 if (defined $t_name and lc $t_name eq $name_or_synonym)
1189 5 15 if ($scope eq 'ANY' and $s_text eq $name_or_synonym or $syn->scope eq $scope and $s_text eq $name_or_synonym)
1211 16 0 if ($name)
1220 23 95 if defined $term->name and lc($term->name) =~ /$name/
1238 5 0 if ($name)
1247 6 19 if defined $instance->name and lc($instance->name) =~ /$name/
1265 8 0 if ($name)
1274 12 28 if defined $relationship_type->name and lc($relationship_type->name) =~ /$name/
1292 12 0 if ($name)
1294 12 29 if defined $rel_type->name and lc $rel_type->name eq $name
1317 0 3451 unless $rel_id
1318 0 3451 unless $rel_type
1329 3389 62 if (eval { do { $target_element->isa('OBO::Core::Term') } } and eval { do { $source_element->isa('OBO::Core::Term') } }) { }
62 0 elsif (eval { do { $target_element->isa('OBO::Core::RelationshipType') } } and eval { do { $source_element->isa('OBO::Core::RelationshipType') } }) { }
0 0 elsif (eval { do { $target_element->isa('OBO::Core::Term') } } and eval { do { $source_element->isa('OBO::Core::Instance') } }) { }
0 0 elsif (eval { do { $target_element->isa('OBO::Core::Instance') } } and eval { do { $source_element->isa('OBO::Core::Instance') } }) { }
1330 68 3321 unless $self->has_term($target_element)
1331 38 3351 unless $self->has_term($source_element)
1333 0 62 unless $self->has_relationship_type($target_element)
1334 0 62 unless $self->has_relationship_type($source_element)
1336 0 0 unless $self->has_term($target_element)
1337 0 0 unless $self->has_instance($source_element)
1339 0 0 unless $self->has_instance($target_element)
1340 0 0 unless $self->has_instance($source_element)
1348 36 3415 unless ($self->has_relationship_type_id($rel_type))
1390 0 222 unless $$self{'RELATIONSHIP_TYPES'}{$type}
1392 222 0 if ($tail and $head) { }
1395 26 196 if ($self->has_relationship_id($id)) { }
1427 221 0 if ($term)
1452 22912 0 if ($term)
1477 93718 26 if ($element and $relationship_type)
1484 7650 133052 if $rel->type eq $relationship_type_id
1504 10 0 if ($element and $relationship_type)
1511 6 7 if $rel->type eq $relationship_type_id
1539 14 36 if ($#hashes == -1) { }
1629 1 7 if $data_version
1632 1 7 if $ontology_id_space
1634 5 3 defined $self->date ? :
1637 6 2 if defined $saved_by
1662 1 7 if defined $dris
1666 5 3 if defined $dns
1703 2 754 if $term->is_anonymous
1708 746 10 if (defined $term->name)
1729 0 756 if $term->builtin
1736 3 1 if (defined $value->head->instance_of) { }
1747 530 226 if (defined $term->def->text)
1758 163 593 if defined $term->comment
1764 34 0 if ($self->subset_def_map->contains_key($sset_name)) { }
1780 3 836 if (defined $stn) { }
1799 756 0 if (defined $rt)
1805 645 2 if defined $head_name
1818 0 0 if $tr_type ne 'nil'
1820 0 0 if defined $intersection_of_name
1837 7 0 if defined $dt
1838 7 0 if defined $dt_name
1849 19653 756 if ($rt_id ne 'is_a')
1855 443 3 if defined $relationship_name
1864 2 754 if defined $term->created_by
1869 2 754 if defined $term->creation_date
1874 0 756 if defined $term->modified_by
1879 0 756 if defined $term->modification_date
1884 0 756 if $term->is_obsolete
1926 0 4 if $instance->is_anonymous
1931 2 2 if (defined $instance->name)
1952 0 4 if $instance->builtin
1957 0 4 if defined $instance->comment
1963 0 0 if ($self->subset_def_map->contains_key($sset_name)) { }
1979 0 0 if (defined $stn) { }
1998 2 2 if ($class)
2001 0 2 if defined $class_name
2022 0 0 if $tr_type ne 'nil'
2024 0 0 if defined $intersection_of_name
2041 0 0 if defined $dt
2042 0 0 if defined $dt_name
2053 40 4 if ($rt_id ne 'is_a')
2059 0 0 if defined $relationship_name
2068 0 4 if defined $instance->created_by
2073 0 4 if defined $instance->creation_date
2078 0 4 if defined $instance->modified_by
2083 0 4 if defined $instance->modification_date
2088 0 4 if $instance->is_obsolete
2127 0 89 if $relationship_type->is_anonymous
2133 81 8 if (defined $relationship_type_name)
2154 3 86 if $relationship_type->builtin == 1
2159 36 53 if defined $relationship_type->def->text
2164 21 68 if defined $relationship_type->comment
2170 1 0 if ($self->subset_def_map->contains_key($sset_name)) { }
2206 7 82 if $relationship_type->is_anti_symmetric == 1
2207 0 89 if $relationship_type->is_cyclic == 1
2208 13 76 if $relationship_type->is_reflexive == 1
2209 1 88 if $relationship_type->is_symmetric == 1
2210 26 63 if $relationship_type->is_transitive == 1
2216 89 0 if (defined $rt)
2220 32 0 if (defined $head_name) { }
2237 0 0 if $tr_type ne 'nil'
2239 0 0 if defined $intersection_of_name
2256 0 0 if defined $dt
2257 0 0 if defined $dt_name
2265 16 73 if (defined $ir)
2267 15 1 if (defined $inv_name) { }
2295 0 89 if $relationship_type->is_functional == 1
2300 0 89 if $relationship_type->is_inverse_functional == 1
2305 1 88 if defined $relationship_type->created_by
2310 1 88 if defined $relationship_type->creation_date
2315 0 89 if defined $relationship_type->modified_by
2320 0 89 if defined $relationship_type->modification_date
2325 0 89 if $relationship_type->is_obsolete
2344 0 89 if $relationship_type->is_metadata_tag == 1
2349 0 89 if $relationship_type->is_class_level == 1
2368 0 2 if ($base and not $base =~ /^http/) { }
0 2 elsif (not defined $namespace) { }
2397 1284 0 $1 ? :
2404 0 1284 if $term->is_anonymous
2410 1284 0 defined $term_name ? :
2423 0 1284 if $term->builtin == 1
2430 0 0 if (defined $value->head->instance_of) { }
2450 789 495 if (defined $term->def->text)
2470 30 1254 if (defined $term->comment)
2478 0 0 if ($self->subset_def_map->contains_key($sset_name)) { }
2525 1284 0 if (defined $rt)
2526 0 1284 if $rdf_tc
2547 0 0 if $tr_type ne 'nil'
2573 13667 1284 if ($rt_name and $rt_name ne 'is_a')
2575 0 13667 if $rdf_tc and $rt_name_clean eq 'part_of'
2589 0 1284 if defined $term->created_by
2594 0 1284 if defined $term->creation_date
2599 0 1284 if defined $term->modified_by
2604 0 1284 if defined $term->modification_date
2609 19 1265 if $term->is_obsolete == 1
2646 2 0 unless ($skip)
2656 0 33 if $relationship_type->is_anonymous
2675 1 32 if $relationship_type->builtin == 1
2680 32 1 if (defined $relationship_type->name) { }
2690 21 11 if (defined $relationship_type->def->text)
2710 12 20 if (defined $relationship_type->comment)
2718 0 0 if ($self->subset_def_map->contains_key($sset_name)) { }
2775 5 27 if $relationship_type->is_anti_symmetric == 1
2776 0 32 if $relationship_type->is_cyclic == 1
2777 9 23 if $relationship_type->is_reflexive == 1
2778 1 31 if $relationship_type->is_symmetric == 1
2779 19 13 if $relationship_type->is_transitive == 1
2785 32 0 if (defined $rt)
2805 0 0 if $tr_type ne 'nil'
2829 0 32 if (defined $ir)
2853 0 32 if $relationship_type->is_functional == 1
2858 0 32 if $relationship_type->is_inverse_functional == 1
2863 0 32 if defined $relationship_type->created_by
2868 0 32 if defined $relationship_type->creation_date
2873 0 32 if defined $relationship_type->modified_by
2878 0 32 if defined $relationship_type->modification_date
2883 0 32 if $relationship_type->is_obsolete == 1
2902 0 32 if $relationship_type->is_metadata_tag == 1
2907 0 32 if $relationship_type->is_class_level == 1
2933 0 2 unless ($oboContentUrl =~ /^http/)
2937 0 2 unless ($oboInOwlUrl =~ /^http/)
2987 2 0 if $self->date
2988 0 2 if $self->data_version
2989 0 2 if $self->id
2990 1 1 if $self->saved_by
2992 0 2 if $self->default_relationship_id_prefix
2993 2 0 if $self->default_namespace
3023 0 0 if defined $scope
3031 0 2 if (defined $ids)
3033 0 0 if ($local_idspace)
3071 647 0 if $term->name
3076 163 484 if $term->comment
3082 0 0 if ($self->subset_def_map->contains_key($sset_name)) { }
3092 490 157 if (defined $term->def->text)
3109 699 109 if ($st eq 'EXACT') { }
14 95 elsif ($st eq 'BROAD') { }
72 23 elsif ($st eq 'NARROW') { }
23 0 elsif ($st eq 'RELATED') { }
3155 647 0 if (defined $rt)
3185 0 647 if (@intersection_of)
3193 0 0 $tr =~ /([A-Z]+):/ ? :
3194 0 0 if (scalar @inter == 1) { }
0 0 elsif (scalar @inter == 2) { }
3195 0 0 $tr =~ /([A-Z]+):/ ? :
3217 0 647 if (@union_of)
3223 0 0 $tr =~ /([A-Z]+):/ ? :
3242 18444 647 if ($rt->id ne 'is_a')
3261 0 647 if $term->is_obsolete
3301 2 29 if $relationship_type_id eq 'is_a'
3312 29 0 if (defined $relationship_type_name)
3319 11 18 if $relationship_type->comment
3324 19 10 if (defined $relationship_type->def->text)
3341 3 0 if ($st eq 'EXACT') { }
0 0 elsif ($st eq 'BROAD') { }
0 0 elsif ($st eq 'NARROW') { }
0 0 elsif ($st eq 'RELATED') { }
3380 29 0 if (defined $rt)
3390 17 12 if $relationship_type->is_transitive
3391 1 28 if $relationship_type->is_symmetric
3392 0 29 if $relationship_type->is_metadata_tag
3393 0 29 if $relationship_type->is_class_level
3475 0 2 if $data_version
3478 0 2 if $ontology_id_space
3480 2 0 defined $self->date ? :
3484 1 1 if $saved_by
3517 0 2 if defined $dris
3521 2 0 if defined $dns
3559 0 651 if $term->is_anonymous
3564 651 0 if defined $term->name
3583 0 651 if $term->builtin == 1
3590 0 0 if (defined $value->head->instance_of) { }
3609 489 162 if (defined $term_def->text)
3625 163 488 if defined $comment
3631 0 0 if ($self->subset_def_map->contains_key($sset_name)) { }
3666 651 0 if (defined $rt)
3671 564 0 defined $head_name ? :
3686 0 0 if $tr_type ne 'nil'
3710 18459 651 if ($rt->name ne 'is_a')
3725 1 650 if defined $term->created_by
3730 1 650 if defined $term->creation_date
3735 0 651 if defined $term->modified_by
3740 0 651 if defined $term->modification_date
3745 0 651 if $term->is_obsolete
3793 0 32 if $relationship_type->is_anonymous
3799 32 0 if (defined $relationship_type_name)
3820 2 30 if $relationship_type->builtin == 1
3826 21 11 if (defined $relationship_type_def->text)
3840 13 19 if defined $relationship_type->comment
3846 0 0 if ($self->subset_def_map->contains_key($sset_name)) { }
3891 6 26 if $relationship_type->is_anti_symmetric == 1
3892 0 32 if $relationship_type->is_cyclic == 1
3893 10 22 if $relationship_type->is_reflexive == 1
3894 1 31 if $relationship_type->is_symmetric == 1
3895 20 12 if $relationship_type->is_transitive == 1
3901 32 0 if (defined $rt)
3918 0 0 if $tr_type ne 'nil'
3935 0 32 if (defined $df)
3943 2 30 if (defined $ir)
3967 0 32 if $relationship_type->is_functional == 1
3972 0 32 if $relationship_type->is_inverse_functional == 1
3977 1 31 if defined $relationship_type->created_by
3982 1 31 if defined $relationship_type->creation_date
3987 0 32 if $relationship_type->is_obsolete
4006 0 32 if $relationship_type->is_metadata_tag == 1
4011 0 32 if $relationship_type->is_class_level == 1
4049 647 0 if (defined $rt)
4053 0 560 if (not defined $term->name) { }
0 560 elsif (not defined $head->name) { }
4067 18444 647 if ($rt->name ne 'is_a')
4069 335 18109 if @heads
4073 0 370 if (not defined $term->name) { }
0 370 elsif (not defined $head->name) { }
4125 0 0 unless $term_sns
4127 0 0 defined $id ? :
4136 0 0 if $color_id{$term_sns}
4142 0 0 if defined $term->def->text
4152 0 0 if (not defined $term->name) { }
0 0 elsif (not defined $head->name) { }
4160 0 0 defined $id{$head->subnamespace} ? :
4209 0 16 unless ($possible_formats->contains($format))
4218 0 16 if (not -w $output_file_handle) { }
0 16 elsif (not -e $error_file_handle) { }
4224 0 16 if ($error_file_handle eq $stderr_fh and not -w $error_file_handle)
4230 8 8 if ($format eq 'obo') { }
2 6 elsif ($format eq 'rdf') { }
2 4 elsif ($format eq 'xml') { }
2 2 elsif ($format eq 'owl') { }
2 0 elsif ($format eq 'dot') { }
0 0 elsif ($format eq 'gml') { }
0 0 elsif ($format eq 'xgmml') { }
0 0 elsif ($format eq 'sbml') { }
4290 3 0 unless ($result->has_term($term))
4301 0 3 unless ($result->has_term($descendent))
4314 0 3 unless $result->has_relationship_type($rel_type)
4335 3 0 if ($root_term)
4336 0 3 unless $self->has_term($root_term)
4350 0 3 if ($rel_type_ids)
4361 0 37 if ($rel_type_ids) { }
4362 0 0 $$rel_type_ids{$rel->type} ? :
4367 0 37 unless $result->has_relationship_type($rel_type)
4389 2 9 if ($self->id) { }
4398 8 0 if defined $NS
4400 8 1 $NS ? :
4416 0 2 if ($self->id) { }
4425 2 0 if defined $NS
4427 2 0 $NS ? :
4443 12 0 if ($term)
4444 4 8 unless (eval { do { $term->isa('OBO::Core::Term') } })
4472 5 0 if ($term)
4497 4 0 if (@_)
4502 4 3 if substr($unqueued->id, 4, length $subnamespace) eq $subnamespace
4523 4 0 if (@_)
4528 10 1 if substr($unqueued->id, 4, length $subnamespace) eq $subnamespace
4549 4 0 if (@_)
4575 4 0 if (@_)
4601 3 0 if ($db and $acc)
4605 3 3 if $xref->db eq $db and $xref->acc eq $acc
4624 3 0 if ($db and $acc)
4628 3 3 if $xref->db eq $db and $xref->acc eq $acc
4666 686 10611 unless defined $p_id
4679 883 9728 if ($bstop eq $n_id)
4690 4516 6095 if ($#ps == -1) { }
4706 0 4516 if (defined $banned_sou and $banned_sou > $hijos_sou)
4725 650 6023 if $banned{$p_id} < $hijos{$p_id}
4728 6095 578 if ($w > -1)
4734 0 6095 if (defined $banned_bk_w and $banned_bk_w > $hijos_bk_w)
4789 0 465 unless defined $p_id
4802 401 64 if ($bstop->contains($n_id))
4811 159 306 if ($#ps == -1) { }
4827 0 159 if (defined $banned_sou and $banned_sou > $hijos_sou)
4846 0 376 if $banned{$p_id} < $hijos{$p_id}
4849 306 70 if ($w > -1)
4855 0 306 if (defined $banned_bk_w and $banned_bk_w > $hijos_bk_w)
4912 4 361 unless defined $p_id
4926 358 3 if ($bstop->contains($n_id))
4935 267 94 if ($#ps == -1) { }
4951 0 267 if (defined $banned_sou and $banned_sou > $hijos_sou)
4970 1 161 if $banned{$p_id} < $hijos{$p_id}
4973 94 68 if ($w > -1)
4979 0 94 if (defined $banned_bk_w and $banned_bk_w > $hijos_bk_w)
5029 0 12 unless caller eq 'OBO::Core::Ontology'
5035 0 0 unless caller eq 'OBO::Core::Ontology'
5052 0 0 if ($blist->contains($n_id) or $brels->contains(sort(values %{$$onto{'TARGET_SOURCE_RELATIONSHIPS'}{$onto->get_term_by_id($p_id)}{$onto->get_term_by_id($n_id)};})))
5060 0 0 unless ($blist->contains($n_id) and $explored_set->contains($n_id))
5067 0 0 unless (@ps)
5069 0 0 unless @nei
5089 0 0 unless ($brels->contains($crel->id))
5094 0 0 if ($all_banned)
5102 0 0 unless ($brels->contains($drel->id))
5107 0 0 if ($all_rels_banned)
5121 0 13667 unless caller eq 'OBO::Core::Ontology'
5127 0 0 unless caller eq 'OBO::Core::Ontology'
5129 0 0 if ($local_id and $uri)
5133 0 0 if defined $description
5143 0 0 if defined $idspace_description_string
5147 0 0 if (not @idspaces_as_string) { }
5155 0 2848 unless caller eq 'OBO::Core::Ontology'
5164 0 129368 unless caller eq 'OBO::Core::Ontology'
5173 0 1996 unless caller eq 'OBO::Core::Ontology'
5187 7 970 if ($db eq 'http') { }
5210 0 6775 unless caller eq 'OBO::Core::Ontology'