| line |
true |
false |
branch |
|
156
|
1 |
2 |
unless @_ == 2 |
|
160
|
1 |
3 |
unless $args[$i] |
|
247
|
2 |
21 |
unless ref $args and &reftype($args) eq 'HASH' |
|
249
|
1 |
20 |
unless $args->{'file'} |
|
251
|
1 |
19 |
unless -f $args->{'file'} |
|
254
|
1 |
18 |
if ($args->{'format'} and not $args->{'format'} =~ /^(?:h|a)oh$/i) |
|
259
|
1 |
17 |
if (not exists $args->{'key'} and $data{'format'} ne 'aoh') |
|
264
|
6 |
11 |
if (defined $args->{'max_rows'}) |
|
265
|
3 |
3 |
if (not $args->{'max_rows'} =~ /^[0-9]+$/) { } |
|
276
|
0 |
14 |
unless my $csv = 'Text::CSV'->new($args) |
|
279
|
0 |
14 |
unless open my $IN, '<', $data{'file'} |
|
283
|
1 |
106 |
if (exists $header_fields_seen{$_}) { } |
|
301
|
123 |
10 |
if ($data{'format'} eq 'hoh') { } |
|
303
|
1 |
122 |
if ($keys_seen{$kk}) { } |
|
313
|
1 |
121 |
if defined $data{'max_rows'} and scalar CORE::keys %parsed_data == $data{'max_rows'} |
|
321
|
1 |
9 |
if defined $data{'max_rows'} and scalar @parsed_data == $data{'max_rows'} |
|
324
|
2 |
10 |
$data{'format'} eq 'aoh' ? : |
|
325
|
10 |
2 |
if $data{'format'} eq 'hoh' |
|
424
|
6 |
9 |
unless defined $key and $key ne '' |
|
428
|
3 |
6 |
$self->{'format'} eq 'aoh' ? : |
|
456
|
3 |
11 |
unless @args == 2 |
|
458
|
6 |
13 |
unless defined $args[$i] and $args[$i] ne '' |
|
463
|
3 |
2 |
$self->{'format'} eq 'aoh' ? : |
|
493
|
2 |
1 |
if (exists $self->{'keys'}) { } |