Branch Coverage

Bio/Variation/VariantI.pm
Criterion Covered Total %
branch 81 108 75.0


line true false branch
129 0 0 if scalar @ids > 0
130 0 0 if $id
154 70 0 if (defined $value) { }
155 0 70 if (not $value->isa('Bio::Variation::Allele')) { }
160 19 51 if ($self->isa('Bio::Variation::AAChange')) { }
161 18 1 if $value->seq
163 47 4 if $value->seq
213 66 88 if (defined $value)
214 66 0 if ($value) { }
247 73 975 if (defined $value)
248 0 73 if (not ref $value && $value->isa('Bio::Variation::Allele')) { }
251 19 54 if ($self->isa('Bio::Variation::AAChange')) { }
252 19 0 if $value->seq
254 50 4 if $value->seq
287 236 1049 if (defined $value)
288 0 236 if (not ref $value && $value->isa('Bio::Variation::Allele')) { }
291 69 167 if ($self->isa('Bio::Variation::AAChange')) { }
292 65 4 if $value->seq
294 151 16 if $value->seq
327 74 131 if (defined $value)
330 12 193 unless (exists $self->{'length'})
355 49 313 if (defined $value)
381 49 334 if (defined $value)
438 3 3 if (defined $value)
440 3 0 if ($status{$value}) { }
447 0 6 unless (exists $self->{'status'})
477 63 104 if (defined $value)
479 63 0 if ($proof{$value}) { }
508 10 38 if (defined $value)
534 8 48 if (defined $value)
559 11 55 if (defined $value)
560 0 11 if (not $value =~ /^[+-]?\d+$/) { }
593 3 3 if (defined $value)
595 3 0 if ($numbering{$value}) { }
602 0 6 unless (exists $self->{'numbering'})
630 72 216 if (defined $value)
633 0 288 if (not exists $self->{'mut_number'}) { }
663 77 131 if (defined $value)
664 0 77 if (not $value->isa('Bio::Variation::SeqDiff')) { }
672 7 201 if (not exists $self->{'seqDiff'}) { }
694 0 0 if ($com and not $com->isa('Bio::Annotation::DBLink'))
697 0 0 if $com
738 37 68 unless ($self->{'re_changes'})
742 0 37 if ($self->isa('Bio::Variation::AAChange'))
747 0 37 if $self->upStreamSeq eq ''
749 0 37 if $self->dnStreamSeq eq ''
758 16 21 if ($self->isa('Bio::Variation::RNAChange') and $self->DNAMutation and $self->upStreamSeq eq $self->DNAMutation->upStreamSeq and $self->dnStreamSeq eq $self->DNAMutation->dnStreamSeq and $self->DNAMutation->restriction_changes ne '') { }
770 0 21 if $le_dn > CORE::length $self->dnStreamSeq
771 0 21 if $le_up > CORE::length $self->upStreamSeq
776 19 2 if $self->allele_ori->seq
777 19 2 if $self->allele_mut->seq
794 45 4701 if scalar @ori < scalar @mut or scalar @ori_r < scalar @mut_r
796 41 4705 if scalar @ori > scalar @mut or scalar @ori_r > scalar @mut_r
800 18 3 if $rec ne ''