| line |
true |
false |
branch |
|
37
|
0 |
4 |
if (defined $args and ref $args ne 'HASH') |
|
41
|
0 |
4 |
if (defined $$args{'ignore'}) |
|
42
|
0 |
0 |
if ref $$args{'ignore'} ne 'ARRAY' |
|
45
|
0 |
0 |
if ref $_ ne 'Regexp' |
|
50
|
4 |
0 |
unless (defined $$args{'dirs'}) |
|
54
|
4 |
0 |
unless (defined $$args{'files'}) |
|
58
|
0 |
4 |
if (not $$args{'_only_load'}) |
|
68
|
0 |
0 |
unless (defined $args{'dir'}) |
|
72
|
0 |
0 |
unless (defined $args{'file'}) |
|
76
|
0 |
0 |
unless (defined $args{'script'}) |
|
89
|
0 |
0 |
if ($$opt{'help'}) |
|
95
|
0 |
0 |
if ($$opt{'version'}) |
|
100
|
0 |
0 |
if ($args{'script'} eq 'test_whitespaces' and $$opt{'only_errors'}) |
|
104
|
0 |
0 |
if ($args{'script'} eq 'whiter' and $$opt{'verbose'}) |
|
108
|
0 |
0 |
unless (@ARGV) |
|
114
|
0 |
0 |
if (-d $argv) { } |
|
|
0 |
0 |
elsif (-T $argv) { } |
|
134
|
0 |
0 |
if ($got eq $expected) { } |
|
135
|
0 |
0 |
if ($print_ok_files) |
|
150
|
0 |
0 |
if ($ENV{'HARNESS_ACTIVE'}) { } |
|
166
|
0 |
7 |
if (-t STDOUT) { } |
|
176
|
0 |
0 |
unless open FILE, '< :encoding(UTF-8)', $filename |
|
188
|
0 |
0 |
unless open FILE, '> :encoding(UTF-8)', $filename |
|
217
|
0 |
7 |
unless defined $got |
|
218
|
0 |
7 |
unless defined $expected |
|
222
|
1 |
6 |
if ($got eq '') |
|
241
|
2 |
14 |
unless (defined $got_lines[$i]) |
|
247
|
6 |
8 |
if (not defined $expected_lines[$i] or $got_lines[$i] ne $expected_lines[$i]) |
|
256
|
3 |
4 |
if ($previous_line_number + 1 != $line_number) |
|
273
|
0 |
7 |
if ($error_line eq "\n") |
|
302
|
2 |
5 |
if ($symbols_to_skip > 0) |
|
308
|
2 |
16 |
if ($skipped_length < $symbols_to_skip) |
|
313
|
12 |
6 |
if ($$_{'status'} eq 'correct') { } |
|
341
|
6 |
246 |
if ($symbol eq "\t" or $symbol eq "\r") { } |
|
|
9 |
237 |
elsif ($symbol =~ / / and $rest =~ /^\s*$/) { } |
|
346
|
2 |
4 |
if ($prev_status eq 'correct') |
|
353
|
8 |
1 |
if ($prev_status eq 'correct') |
|
361
|
12 |
225 |
if ($prev_status eq 'error') |
|
367
|
22 |
230 |
if ($was_change) |
|
368
|
10 |
12 |
if ($prev_status eq 'error') { } |
|
|
12 |
0 |
elsif ($prev_status eq 'correct') { } |
|
379
|
11 |
1 |
if ($prev_status eq 'correct') { } |
|
|
1 |
0 |
elsif ($prev_status eq 'error') { } |
|
392
|
0 |
0 |
if (-d $filename) |
|
396
|
0 |
0 |
unless (-T $filename) |
|
411
|
0 |
0 |
if $part eq $vcs |
|
421
|
0 |
0 |
unless defined $filename |
|
425
|
0 |
0 |
if (-T $filename) |
|
426
|
0 |
0 |
if _file_is_in_vcs_index($filename) |
|
429
|
0 |
0 |
if $filename =~ /$regexp/ |
|
459
|
0 |
0 |
unless defined $filename |
|
461
|
0 |
0 |
if (-T $filename) |
|
462
|
0 |
0 |
if _file_is_in_vcs_index($filename) |
|
467
|
0 |
0 |
if ($content ne $fixed_content) { } |
|
469
|
0 |
0 |
if $verbose |
|
471
|
0 |
0 |
if $verbose |