| line |
true |
false |
branch |
|
196
|
1 |
9 |
unless @_ == 2 |
|
200
|
1 |
17 |
unless $args[$i] |
|
209
|
2 |
4 |
$obj_args{'file'} =~ /\.tsv(\.gz)?$/ ? : |
|
|
2 |
6 |
$obj_args{'file'} =~ /\.psv(\.gz)?$/ ? : |
|
296
|
2 |
35 |
unless ref $args and &reftype($args) eq 'HASH' |
|
298
|
1 |
34 |
unless $args->{'file'} |
|
300
|
1 |
33 |
unless -f $args->{'file'} |
|
303
|
1 |
32 |
if ($args->{'format'} and not $args->{'format'} =~ /^(?:h|a)oh$/i) |
|
308
|
29 |
3 |
if (exists $args->{'key'}) |
|
310
|
2 |
27 |
unless defined $args->{'key'} and length $args->{'key'} |
|
313
|
1 |
29 |
if (not exists $args->{'key'} and $data{'format'} ne 'aoh') |
|
319
|
8 |
21 |
if (defined $args->{'max_rows'}) |
|
320
|
3 |
5 |
if (not $args->{'max_rows'} =~ /^[0-9]+$/) { } |
|
331
|
0 |
26 |
unless my $csv = 'Text::CSV'->new($args) |
|
334
|
8 |
18 |
if ($data{'file'} =~ /\.gz$/) { } |
|
340
|
0 |
26 |
unless defined $IN |
|
345
|
1 |
521 |
if (exists $header_fields_seen{$_}) { } |
|
352
|
23 |
2 |
if ($data{'format'} eq 'hoh') |
|
354
|
1 |
22 |
unless $header_fields_seen{$data{'key'}} |
|
368
|
4229 |
10 |
if ($data{'format'} eq 'hoh') { } |
|
370
|
1 |
4228 |
if ($keys_seen{$kk}) { } |
|
380
|
2 |
4226 |
if defined $data{'max_rows'} and scalar CORE::keys %parsed_data == $data{'max_rows'} |
|
388
|
1 |
9 |
if defined $data{'max_rows'} and scalar @parsed_data == $data{'max_rows'} |
|
391
|
0 |
23 |
unless $IN->close |
|
392
|
2 |
21 |
$data{'format'} eq 'aoh' ? : |
|
393
|
21 |
2 |
if $data{'format'} eq 'hoh' |
|
492
|
6 |
9 |
unless defined $key and $key ne '' |
|
496
|
3 |
6 |
$self->{'format'} eq 'aoh' ? : |
|
524
|
3 |
11 |
unless @args == 2 |
|
526
|
6 |
13 |
unless defined $args[$i] and $args[$i] ne '' |
|
531
|
3 |
2 |
$self->{'format'} eq 'aoh' ? : |
|
561
|
3 |
1 |
if (exists $self->{'keys'}) { } |