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 =~ /(\)\.*\()/) { }
124 1 0 if ($overhang_len_3p >= $overhang_len_5p) { }
166 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) { }
217 1 1 if ($n5 > $n3) { }
0 1 elsif ($n5 < $n3) { }
267 1 0 if ($n > 0) { }
0 0 elsif ($loop == 3 or $loop == 2) { }
280 0 1 $loop - 2 * ($n + 1) > 0 ? :
293 0 0 if ($loop == 3)
330 29 49 if ($struct_data[$i - 1] eq '(') { }
29 20 elsif ($struct_data[$i - 1] eq ')') { }
334 0 29 if (@$stack == 0)
342 0 1 if (@$stack != 0)
407 0 0 if ($struct_data[$i - 1] eq '(') { }
0 0 elsif ($struct_data[$i - 1] eq ')') { }
418 0 0 if $stop
422 0 0 if ($struct_data[$j - 1] eq ')') { }
0 0 elsif ($struct_data[$j - 1] eq '(') { }
434 0 0 if $stop
455 0 0 if ($struct =~ /\(\.*\)/)
466 0 0 if ($b < $j)
475 0 0 if ($a > $i)
482 0 0 if ($$table{$_} ~~ \@delete_j)
508 0 0 if ($n > $stem_length_max)