Branch Coverage

blib/lib/Perl/Tidy/FileWriter.pm
Criterion Covered Total %
branch 31 62 50.0


line true false branch
37 0 0 if $AUTOLOAD =~ /\bDESTROY$/
126 0 0 if ($logger_object)
133 1292 4 if ($logger_object)
168 0 648 if (not $ref) { }
648 0 elsif ($ref eq 'SCALAR') { }
176 0 0 if (length $str > 63)
196 634 11 if (@{$rlist;})
201 557 77 if ($list[0] < $list[-1])
254 13 9 unless ($self->[3])
289 114 986 if not $forced and $self->[3] >= $rOpts->{'maximum-consecutive-blank-lines'}
295 0 986 if (not $forced and $self->[5] > 0)
304 56 930 if $forced
327 2 8399 if ($self->[19])
332 7513 888 if (defined $K)
337 3956 3557 if ($self->[16])
339 292 3664 if (not defined $Kt or $Kt != $K)
351 0 7513 if ($K < $self->[18] and not $self->[17])
357 0 0 if (length $str > 80)
372 0 0 if length $str
394 335 0 if (chomp $str)
395 0 335 if ($self->[19])
412 0 2 if ($str and substr($str, 0, 1) eq "\t" and $str =~ /^\t+/g)
418 1 1 if ($len_str > $self->[13])
424 0 2 if ($exceed > 0)
428 0 0 if ($self->[12] == 0)
433 0 0 if ($self->[8] > $self->[7])
440 0 0 if ($self->[12] < 6)
456 648 0 if ($line_length_error_count == 0) { }
468 0 0 $line_length_error_count > 1 ? :
473 0 0 $line_length_error_count > 1 ? :
480 0 0 if ($line_length_error_count > 1)