Branch Coverage

blib/lib/Perl/Tidy/Logger.pm
Criterion Covered Total %
branch 36 98 36.7


line true false branch
24 0 0 if $AUTOLOAD =~ /\bDESTROY$/
49 0 647 if (@arglist % 2)
69 3 644 $rOpts->{'standard-error-output'} ? :
72 16 628 unless ($fh_warnings or ref $warning_file)
73 0 16 if (-e $warning_file)
74 0 0 unless unlink $warning_file
82 1 646 defined $rOpts->{'logfile-gap'} ? :
84 1 646 if ($logfile_gap == 0)
86 647 0 $display_name ? :
87 647 0 $display_name ? :
165 0 646 unless ($self->{'_wrote_line_information_string'})
190 3 0 if ($input_line_number - $last_input_line_written >= $self->{'_logfile_gap'} or $input_line =~ /^\s*(sub|package)\s+(\w+)/)
199 0 3 if $structural_indentation_level < 0
207 0 3 if (length $out_str > 35)
250 3 4970 if ($input_line_number)
262 1 2 unless $self->{'_wrote_column_headings'}
267 0 0 $input_line_number < 100 ? :
3 0 $input_line_number < 10 ? :
271 0 0 $output_line_number < 100 ? :
3 0 $output_line_number < 10 ? :
285 0 3 if ($ci_level > 9)
286 3 0 $line_of_tokens->{'_nesting_blocks_0'} =~ /1$/ ? :
288 3 0 if (length $nesting_string_new <= 8)
304 0 8388 if $self->{'_block_log_output'}
307 3415 4973 if ($self->{'_at_end_of_file'} or not $self->{'_use_prefix'}) { }
314 3 4970 if ($line_information_string) { }
341 0 0 if ($saw_brace_error < 10)
347 0 0 if ($saw_brace_error == 10)
360 0 42 if ($rOpts->{'warning-output'}) { }
367 42 0 if ($msg_line_number)
392 0 0 unless ($rOpts->{'quiet'})
397 0 0 unless ($fh_warnings)
401 0 0 unless ($fh_warnings)
405 0 0 unless ref $warning_file
413 0 0 if ($warning_count < 50)
415 0 0 unless ($warning_count)
420 0 0 if ($filename_stamp)
427 0 0 unless ($rOpts->{'standard-error-output'})
433 0 0 if ($self->get_use_prefix > 0 and defined $msg_line_number) { }
449 0 0 if ($filename_stamp)
462 0 0 if ($warning_count == 50)
491 0 647 if ($warning_count)
492 0 0 if ($save_logfile)
500 0 0 if ($self->{'_complaint_count'} > 0)
507 0 0 if ($self->{'_saw_brace_error'} and $self->{'_logfile_gap'} > 1 || !$save_logfile)
515 1 646 if ($save_logfile)
518 0 1 if (not $fh) { }
524 0 0 if ($fh->can("close") and not ref $log_file and $log_file ne "-")
528 0 0 unless $fh->close