Branch Coverage

blib/lib/RNA/HairpinFigure.pm
Criterion Covered Total %
branch 24 58 41.3


line true false branch
99 1 3 unless length $seq > 0 and length $struct > 0
101 1 2 unless length $seq == length $struct
103 1 1 if $struct =~ /[^\.\(\)]/
111 0 1 if ($struct =~ /(\)\.*\()/) { }
122 1 0 if ($len - $right[0] >= $left[0] - 1) { }
164 4 3 if ($next5 ~~ \@left and $next3 ~~ \@right) { }
1 2 elsif (not $next5 =~ @left and $next3 ~~ \@right) { }
0 2 elsif ($next5 ~~ \@left and not $next3 =~ @right) { }
215 1 1 if ($n5 > $n3) { }
0 1 elsif ($n5 < $n3) { }
265 1 0 if ($n > 0) { }
0 0 elsif ($loop == 3 or $loop == 2) { }
278 0 1 $loop - 2 * ($n + 1) > 0 ? :
291 0 0 if ($loop == 3)
328 29 49 if ($struct_data[$i - 1] eq '(') { }
29 20 elsif ($struct_data[$i - 1] eq ')') { }
332 0 29 if (@$stack == 0)
340 0 1 if (@$stack != 0)
405 0 0 if ($struct_data[$i - 1] eq '(') { }
0 0 elsif ($struct_data[$i - 1] eq ')') { }
416 0 0 if $stop
420 0 0 if ($struct_data[$j - 1] eq ')') { }
0 0 elsif ($struct_data[$j - 1] eq '(') { }
432 0 0 if $stop
453 0 0 if ($struct =~ /\(\.*\)/)
464 0 0 if ($b < $j)
473 0 0 if ($a > $i)
480 0 0 if ($$table{$_} ~~ \@delete_j)
506 0 0 if ($n > $stem_length_max)