Branch Coverage

blib/lib/AlignDB/GC.pm
Criterion Covered Total %
branch 86 112 76.7


line true false branch
26 1 2 if ($segment_size) { }
49 11 53 if $sliding_end > $comparable_number
74 0 48 if ($four_count == 0) { }
97 0 6 if ($segment_number < $window_size + $window_step)
114 5 1 $gc_mean <= 0.5 ? :
0 6 $gc_mean == 0 || $gc_mean == 1 ? :
118 0 6 $self->skip_mdcw ? :
135 0 2 unless $midleft_parent_idx and $midright_parent_idx
141 0 2 if $new_left_idx < 1
143 0 2 if $new_right_idx > $parent_size
159 0 2 unless $resize_set
173 0 66 unless @_
174 50 16 unless @_ > 1
180 0 6 unless @_
181 0 6 unless @_ > 1
188 0 6 unless @_
189 0 6 unless @_ > 1
196 0 6 if (@array <= 1)
230 924 276 unless $_ < $count
234 1 23 if (scalar @right_vicinal_windows == 0) { }
239 5 18 if ($windows->[$i]{'sw_gc'} >= &List::Util::max(@right_vicinal_windows))
242 3 20 if ($windows->[$i]{'sw_gc'} <= &List::Util::min(@right_vicinal_windows))
247 0 24 if ($right_low and $right_high) { }
5 19 elsif ($right_low) { }
3 16 elsif ($right_high) { }
269 924 276 if $_ < 0
273 1 23 if (scalar @left_vicinal_windows == 0) { }
278 7 16 if ($windows->[$i]{'sw_gc'} >= &List::Util::max(@left_vicinal_windows))
281 6 17 if ($windows->[$i]{'sw_gc'} <= &List::Util::min(@left_vicinal_windows))
286 2 22 if ($left_low and $left_high) { }
5 17 elsif ($left_low) { }
4 13 elsif ($left_high) { }
305 3 21 if ($left_flag eq 'H' and $right_flag eq 'H') { }
4 17 elsif ($left_flag eq 'L' and $right_flag eq 'L') { }
335 28 140 if ($flag eq 'T' or $flag eq 'C')
347 13 7 if ($i - 1 >= 0)
351 17 3 if ($i + 1 < scalar @extreme)
356 7 13 if ($wave eq 'T') { }
13 0 elsif ($wave eq 'C') { }
357 1 6 if ($wave eq $left_wave)
358 1 0 if ($gc <= $left_gc)
363 1 5 if ($wave eq $right_wave)
364 0 1 if ($gc < $right_gc)
371 3 10 if ($wave eq $left_wave)
372 3 0 if ($gc >= $left_gc)
377 3 7 if ($wave eq $right_wave)
378 0 3 if ($gc > $right_gc)
396 1 6 if ($i + 3 < scalar @extreme) { }
414 0 1 if (abs $gc1 - $gc2 < $fall_range)
415 0 0 if (&List::Util::max($gc1, $gc2) < &List::Util::max($gc, $gc3) and &List::Util::min($gc1, $gc2) > &List::Util::min($gc, $gc3))
432 2 5 if ($i + 2 < scalar @extreme) { }
446 0 2 if (abs $gc1 - $gc < $fall_range and abs $gc2 - $gc1 < $fall_range)
459 2 1 if ($i + 1 < scalar @extreme)
460 2 0 if ($extreme[$i + 1] - $extreme[$i] < $vicinal_number)
470 1 23 if ($flag eq 'T' or $flag eq 'C')
475 1 0 if (scalar @extreme == scalar @extreme2)