Branch Coverage

lib/Bio/SAGE/DataProcessing.pm
Criterion Covered Total %
branch 62 106 58.4


line true false branch
477 1 3 if ($key eq 'IGNORE_TAGS')
563 5 70 if ($line =~ /^>(.*?)$/)
565 4 1 if ($currid ne '')
570 4 0 if (defined $fh2)
573 5 60 if ($line2 =~ /^>(.*?)$/)
575 1 4 if ($currscoreid eq '')
576 0 4 if ($currid ne $currscoreid)
580 56 4 if ($scores ne '')
585 0 4 if ($scores eq '')
586 0 4 if ($this->process_read($currseq, $scores) == 0)
589 0 0 defined $scores ? :
603 1 0 if ($currid ne '')
608 1 0 if (defined $fh2)
611 0 10 if ($line2 =~ /^>(.*?)$/)
613 0 0 if ($currscoreid eq '')
614 0 0 if ($currid ne $currscoreid)
618 9 1 if ($scores ne '')
623 0 1 if ($scores eq '')
624 0 1 if ($this->process_read($currseq, $scores) == 0)
689 0 5 unless (defined $read_sequence)
690 0 5 if ($read_sequence eq '')
692 0 5 if ($Bio::SAGE::DataProcessing::DEBUG >= 1)
739 0 2 if ($$this{'keep_duplicates'} == 1)
796 0 122 if ($$this{'keep_duplicates'} == 1) { }
805 0 122 if ($scores eq '')
812 0 244 if ($ignoreTag eq $tag1)
817 0 122 if ($bIgnore == 1) { }
820 0 122 if (not $tag1 =~ /^[ACGT]+$/) { }
824 122 0 if ($scores ne '')
827 120 2 if ($$this{'tag_filter'}->is_valid($tag1, $tagScores)) { }
841 0 244 if ($ignoreTag eq $tag2)
846 0 122 if ($bIgnore == 1) { }
849 0 122 if (not $tag2 =~ /^[ACGT]+$/) { }
853 122 0 if ($scores ne '')
857 122 0 if ($$this{'tag_filter'}->is_valid($tag2, $tagScores)) { }
1009 61 0 if ($minLength <= length $ditag and length $ditag <= $maxLength)
1021 61 0 if ($minLength <= length $ditag and length $ditag <= $maxLength)
1165 1 0 unless ($tag =~ /^$enzyme/ and length $tag == $$this{'protocol'}{'TAG_LENGTH'} + length($enzyme))
1166 1 0 if (length $tag == $$this{'protocol'}{'TAG_LENGTH'}) { }
1182 0 61 if ($minDitagLength >= length $ditag)
1186 1 60 if ($ditag =~ /^$tag/)
1190 1 59 if ($ditag =~ /$revtag$/)
1313 5 0 if (defined $read_scores)
1318 0 5 if ($Bio::SAGE::DataProcessing::DEBUG >= 1)
1340 3 98 unless ($ditag_sequence =~ /^[ACGT]+$/)
1344 4 94 if (length $ditag_sequence < $minLength)
1348 4 90 if (length $ditag_sequence > $maxLength)
1353 90 0 if (defined $read_scores)
1356 29 61 unless ($$this{'ditag_filter'}->is_valid($ditag_sequence, $ditag_scores))
1362 0 61 if (defined ${$$this{'ditags'};}{$ditag_sequence} and $$this{'keep_duplicates'} == 0)
1364 0 0 if (defined $read_scores)
1366 0 0 if ($result <= -1)
1375 0 61 if ($$this{'keep_duplicates'} == 1)