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 1118 4 if ($logger_object)
154 0 561 if (not $ref) { }
561 0 elsif ($ref eq 'SCALAR') { }
162 0 0 if (length $str > 63)
171 559 2 if ($logger_object)
181 547 11 if (@{$rlist;})
186 471 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 7379 if ($self->[19])
313 6581 803 if (defined $K)
318 3212 3369 if ($self->[16])
320 265 2947 if (not defined $Kt or $Kt != $K)
332 0 6581 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 561 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)