Branch Coverage

blib/lib/Perl/Tidy/FileWriter.pm
Criterion Covered Total %
branch 34 62 54.8


line true false branch
21 0 0 if $AUTOLOAD =~ /\bDESTROY$/
113 0 0 if ($logger_object)
120 1106 4 if ($logger_object)
154 553 2 if ($logger_object)
164 542 10 if (@{$rlist;})
169 467 75 if ($list[0] < $list[-1])
220 12 8 unless ($self->[4])
253 102 770 if not $forced and $self->[4] >= $rOpts->{'maximum-consecutive-blank-lines'}
259 0 770 if (not $forced and $self->[6] > 0)
268 55 715 if $forced
289 7363 0 if (chomp $str)
290 5 7358 if ($self->[20])
295 6563 800 if (defined $K)
300 3198 3365 if ($self->[17])
302 264 2934 if (not defined $Kt or $Kt != $K)
314 6563 0 unless ($self->[18])
316 0 6563 if ($K < $K_prev)
318 0 0 if (length $str > 80)
334 0 0 if length $str
353 249 6 if (chomp $str)
354 0 255 if ($self->[20])
368 0 5 if ($str and substr($str, 0, 1) eq "\t" and $str =~ /^\t+/g)
374 3 2 if ($len_str > $self->[14])
380 0 5 if ($exceed > 0)
384 0 0 if ($self->[13] == 0)
389 0 0 if ($self->[9] > $self->[8])
396 0 0 if ($self->[13] < 6)
412 555 0 if ($line_length_error_count == 0) { }
424 0 0 $line_length_error_count > 1 ? :
429 0 0 $line_length_error_count > 1 ? :
436 0 0 if ($line_length_error_count > 1)