| line |
true |
false |
branch |
|
501
|
1 |
52 |
if (@o % 2) |
|
504
|
0 |
1 |
if (ref $src) { } |
|
|
1 |
0 |
elsif ($src =~ /[\r\n]/) { } |
|
525
|
2 |
51 |
if (not @given_srcs) { } |
|
|
0 |
51 |
elsif (@given_srcs > 1) { } |
|
535
|
47 |
4 |
defined $o{'shape'} ? : |
|
538
|
1 |
50 |
unless ($shaper) |
|
545
|
1 |
49 |
if (defined $o{'col_grep'} and ref $o{'col_grep'} ne 'CODE') |
|
550
|
1 |
48 |
if (defined $o{'row_grep'} and ref $o{'row_grep'} ne 'CODE') |
|
590
|
6 |
8 |
if (defined $o->{'row_grep'}) |
|
592
|
4 |
2 |
unless $o->{'row_grep'}->($line) |
|
596
|
3 |
7 |
if (defined $o->{'col_grep'}) |
|
598
|
1 |
2 |
unless ($col_grep) |
|
610
|
0 |
7 |
unless ($csv->eof) |
|
630
|
2 |
7 |
if $csv->eof |
|
632
|
0 |
7 |
unless (defined $headers) |
|
641
|
1 |
6 |
if (defined $o->{'col_grep'}) |
|
654
|
2 |
5 |
if (defined $o->{'row_grep'}) |
|
656
|
1 |
1 |
unless $o->{'row_grep'}->(\%line) |
|
660
|
2 |
4 |
if (defined $o->{'col_grep'}) |
|
669
|
0 |
7 |
unless ($csv->eof) |
|
689
|
1 |
5 |
if $csv->eof |
|
691
|
0 |
5 |
unless (defined $headers) |
|
700
|
1 |
4 |
if (defined $o->{'col_grep'}) { } |
|
717
|
2 |
4 |
if (defined $o->{'row_grep'}) |
|
719
|
1 |
1 |
unless $o->{'row_grep'}->(\%line) |
|
723
|
2 |
3 |
if (defined $o->{'col_grep'}) |
|
735
|
0 |
5 |
unless ($csv->eof) |
|
866
|
1 |
24 |
if $csv->eof |
|
868
|
0 |
24 |
unless (defined $headers) |
|
877
|
1 |
23 |
if (defined $o->{'col_grep'}) |
|
884
|
0 |
24 |
if (ref $o->{'key'}) { } |
|
|
23 |
1 |
elsif (defined $o->{'key'}) { } |
|
893
|
0 |
23 |
unless ($csv->parse($o->{'key'})) |
|
917
|
80 |
51 |
unless $handler |
|
919
|
14 |
37 |
if (ref $handler eq 'HASH') |
|
924
|
4 |
47 |
unless $handler |
|
926
|
44 |
3 |
unless (ref $handler) |
|
929
|
2 |
42 |
unless (exists $named_handlers{$type}{$handler}) |
|
939
|
1 |
44 |
if $storage_handlers{$header} |
|
958
|
2 |
53 |
if (defined $o->{'row_grep'}) |
|
960
|
1 |
1 |
unless $o->{'row_grep'}->(\%line) |
|
983
|
2 |
52 |
if (defined $o->{'col_grep'}) |
|
997
|
47 |
20 |
if ($on_store or $on_collide and exists $leaf->{$key}) |
|
1020
|
0 |
19 |
unless ($csv->eof) |
|
1035
|
0 |
48 |
if ($src_type eq 'handle') |
|
1040
|
47 |
1 |
if ($src_type eq 'string') |
|
1046
|
1 |
0 |
if ($src_type eq 'file') |
|
1048
|
1 |
0 |
unless open my $handle, '<', $src_value |