Branch Coverage

blib/lib/Perl/Tidy/FileWriter.pm
Criterion Covered Total %
branch 33 64 51.5


line true false branch
21 0 0 if $AUTOLOAD =~ /\bDESTROY$/
113 0 0 if ($logger_object)
120 1116 4 if ($logger_object)
154 0 560 if (not $ref) { }
560 0 elsif ($ref eq 'SCALAR') { }
162 0 0 if (length $str > 63)
171 558 2 if ($logger_object)
181 546 11 if (@{$rlist;})
186 470 76 if ($list[0] < $list[-1])
237 13 8 unless ($self->[3])
270 102 771 if not $forced and $self->[3] >= $rOpts->{'maximum-consecutive-blank-lines'}
276 0 771 if (not $forced and $self->[5] > 0)
285 55 716 if $forced
308 5 7371 if ($self->[19])
313 6573 803 if (defined $K)
318 3204 3369 if ($self->[16])
320 265 2939 if (not defined $Kt or $Kt != $K)
332 0 6573 if ($K < $self->[18] and not $self->[17])
338 0 0 if (length $str > 80)
354 0 0 if length $str
373 259 0 if (chomp $str)
374 0 259 if ($self->[19])
389 0 5 if ($str and substr($str, 0, 1) eq "\t" and $str =~ /^\t+/g)
395 3 2 if ($len_str > $self->[13])
401 0 5 if ($exceed > 0)
405 0 0 if ($self->[12] == 0)
410 0 0 if ($self->[8] > $self->[7])
417 0 0 if ($self->[12] < 6)
433 560 0 if ($line_length_error_count == 0) { }
445 0 0 $line_length_error_count > 1 ? :
450 0 0 $line_length_error_count > 1 ? :
457 0 0 if ($line_length_error_count > 1)