| line |
true |
false |
branch |
|
25
|
0 |
8 |
unless (exists $args{'path'}) |
|
31
|
3 |
5 |
exists $args{'delimiter'} ? : |
|
32
|
0 |
8 |
if ($delimiter ne "," and $delimiter ne "\t") |
|
36
|
8 |
0 |
$args{'has_header'} ? : |
|
38
|
0 |
8 |
exists $args{'encoding'} ? : |
|
40
|
2 |
6 |
exists $args{'example_cap'} ? : |
|
41
|
0 |
8 |
if (not $example_cap =~ /^\d+$/ or $example_cap < 0) |
|
45
|
2 |
1 |
$args{'null_empty'} ? : |
|
|
3 |
5 |
exists $args{'null_empty'} ? : |
|
47
|
1 |
7 |
exists $args{'null_tokens'} ? : |
|
48
|
0 |
8 |
if (ref $null_tokens ne "ARRAY") |
|
54
|
0 |
1 |
unless (defined $tok) |
|
60
|
0 |
8 |
unless open my $fh, "<:encoding($encoding)", $path |
|
83
|
8 |
0 |
$has_header ? : |
|
|
7 |
1 |
$null_empty ? : |
|
106
|
8 |
12 |
if ($has_header and not $header_captured) |
|
110
|
8 |
0 |
if (defined $report{'header'}) |
|
116
|
9 |
11 |
if ($width > $report{'max_observed_width'}) |
|
120
|
0 |
20 |
unless (defined $report{'expected_width'}) |
|
124
|
20 |
0 |
if (defined $report{'expected_width'}) |
|
125
|
1 |
19 |
if ($width < $report{'expected_width'}) { } |
|
|
1 |
18 |
elsif ($width > $report{'expected_width'}) { } |
|
128
|
1 |
0 |
if (@{$report{'ragged'}{'short_examples'};} < $ragged_example_cap) |
|
138
|
1 |
0 |
if (@{$report{'ragged'}{'long_examples'};} < $ragged_example_cap) |
|
153
|
12 |
16 |
unless (defined $col) |
|
174
|
3 |
25 |
if ($is_null) |
|
183
|
13 |
12 |
if (not defined $col->{'min_length'} or $len < $col->{'min_length'}) |
|
186
|
14 |
11 |
if (not defined $col->{'max_length'} or $len > $col->{'max_length'}) |
|
190
|
25 |
0 |
if ($example_cap > 0) |
|
191
|
23 |
2 |
if (@{$col->{'sample_values'};} < $example_cap) |
|
192
|
23 |
0 |
unless ($col->{'_sample_seen'}{$value}) |
|
202
|
0 |
12 |
unless defined $col |
|
214
|
0 |
4 |
unless (exists $args{'path'}) |
|
220
|
4 |
0 |
exists $args{'delimiter'} ? : |
|
221
|
0 |
4 |
if ($delimiter ne "," and $delimiter ne "\t") |
|
225
|
2 |
2 |
$args{'has_header'} ? : |
|
227
|
0 |
4 |
exists $args{'encoding'} ? : |
|
229
|
0 |
4 |
unless open my $fh, "<:encoding($encoding)", $path |