Branch Coverage

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


line true false branch
38 0 0 if $AUTOLOAD =~ /\bDESTROY$/
127 0 0 if ($logger_object)
134 1312 4 if ($logger_object)
169 0 658 if (not $ref) { }
658 0 elsif ($ref eq 'SCALAR') { }
177 0 0 if (length $str > 63)
197 644 11 if (@{$rlist;})
202 567 77 if ($list[0] < $list[-1])
255 13 9 unless ($self->[3])
290 114 999 if not $forced and $self->[3] >= $rOpts->{'maximum-consecutive-blank-lines'}
296 0 999 if (not $forced and $self->[5] > 0)
305 56 943 if $forced
328 2 8510 if ($self->[19])
333 7618 894 if (defined $K)
338 4048 3570 if ($self->[16])
340 295 3753 if (not defined $Kt or $Kt != $K)
352 0 7618 if ($K < $self->[18] and not $self->[17])
358 0 0 if (length $str > 80)
373 0 0 if length $str
395 399 0 if (chomp $str)
396 0 399 if ($self->[19])
413 0 2 if ($str and substr($str, 0, 1) eq "\t" and $str =~ /^\t+/g)
419 1 1 if ($len_str > $self->[13])
425 0 2 if ($exceed > 0)
429 0 0 if ($self->[12] == 0)
434 0 0 if ($self->[8] > $self->[7])
441 0 0 if ($self->[12] < 6)
457 658 0 if ($line_length_error_count == 0) { }
469 0 0 $line_length_error_count > 1 ? :
474 0 0 $line_length_error_count > 1 ? :
481 0 0 if ($line_length_error_count > 1)