| line |
true |
false |
branch |
|
71
|
0 |
0 |
unless my $sb = "Metabrik::String::Base64"->new_from_brik_init($self) |
|
72
|
0 |
0 |
unless my $sc = "Metabrik::String::Compress"->new_from_brik_init($self) |
|
84
|
0 |
0 |
unless $self->brik_help_run_undef_arg("read", $input) |
|
85
|
0 |
0 |
unless $self->brik_help_run_file_not_found("read", $input) |
|
87
|
0 |
0 |
unless my $csv = "Text::CSV_XS"->new({"binary", 1, "sep_char", $self->separator, "allow_loose_quotes", 1, "allow_loose_escapes", 1, "escape_char", $self->escape}) |
|
95
|
0 |
0 |
unless my $fr = "Metabrik::File::Read"->new_from_brik_init($self) |
|
97
|
0 |
0 |
unless my $fd = $fr->open($input) |
|
104
|
0 |
0 |
if (defined $encoded_fields) |
|
110
|
0 |
0 |
if (defined $object_fields) |
|
126
|
0 |
0 |
if ($self->first_line_is_header) { } |
|
127
|
0 |
0 |
if ($first_line) |
|
137
|
0 |
0 |
if ($encoded_fields or $object_fields) { } |
|
141
|
0 |
0 |
unless defined $v |
|
144
|
0 |
0 |
if ($encoded_fields and exists $encoded_fields->{$k} and length $v) |
|
146
|
0 |
0 |
unless (defined $decoded) |
|
152
|
0 |
0 |
unless (defined $gunzipped) |
|
160
|
0 |
0 |
if ($object_fields and exists $object_fields->{$k} and length $v and $v =~ /$object_re/ || $v =~ /$base64_re/) |
|
163
|
0 |
0 |
unless (defined $decoded) |
|
187
|
0 |
0 |
unless ($csv->eof) |
|
206
|
0 |
0 |
unless $self->brik_help_run_undef_arg("write", $csv_struct) |
|
207
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("write", $csv_struct, "ARRAY") |
|
208
|
0 |
0 |
unless $self->brik_help_run_empty_array_arg("write", $csv_struct, "ARRAY") |
|
209
|
0 |
0 |
unless $self->brik_help_run_undef_arg("write", $output) |
|
211
|
0 |
0 |
if (ref $csv_struct->[0] ne "HASH") |
|
215
|
0 |
0 |
unless my $fw = "Metabrik::File::Write"->new_from_brik_init($self) |
|
228
|
0 |
0 |
if (defined $encoded_fields) |
|
234
|
0 |
0 |
if (defined $object_fields) |
|
246
|
0 |
0 |
if ($self->header) { } |
|
268
|
0 |
0 |
unless my $fd = $fw->open |
|
273
|
0 |
0 |
if ($self->write_header and $is_new_file || $self->overwrite) |
|
276
|
0 |
0 |
unless (defined $r) |
|
292
|
0 |
0 |
if ($encoded_fields or $object_fields) { } |
|
295
|
0 |
0 |
unless defined $order{$key} |
|
298
|
0 |
0 |
unless defined $v |
|
300
|
0 |
0 |
if ($encoded_fields and exists $encoded_fields->{$k} and length $v) |
|
303
|
0 |
0 |
unless (defined $gzipped) |
|
308
|
0 |
0 |
unless (defined $v) |
|
314
|
0 |
0 |
if ($object_fields and exists $object_fields->{$k} and length $v) |
|
317
|
0 |
0 |
if (ref $v eq 'ARRAY' and @$v > 0 or ref $v eq 'HASH' and keys %$v > 0) { } |
|
|
0 |
0 |
elsif (ref $v eq '' and length $v) { } |
|
321
|
0 |
0 |
unless (defined $v) |
|
341
|
0 |
0 |
unless defined $order{$key} |
|
346
|
0 |
0 |
defined $_ ? : |
|
350
|
0 |
0 |
if ($field_count < $header_count) |
|
357
|
0 |
0 |
if ($self->use_quoting) |
|
367
|
0 |
0 |
unless (defined $r) |
|
376
|
0 |
0 |
unless (length $written) |
|
387
|
0 |
0 |
unless $self->brik_help_run_undef_arg("get_column_values", $data) |
|
388
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("get_column_values", $data, "ARRAY") |
|
389
|
0 |
0 |
unless $self->brik_help_run_undef_arg("get_column_values", $column) |
|
393
|
0 |
0 |
if ($self->first_line_is_header) { } |
|
|
0 |
0 |
elsif ($column =~ /^\d+$/) { } |
|
394
|
0 |
0 |
if (@{$self->header;} == 0) |
|
399
|
0 |
0 |
if (ref $row ne "HASH") |
|
403
|
0 |
0 |
if (exists $row->{$column}) |
|
411
|
0 |
0 |
if (ref $row ne "ARRAY") |
|
415
|
0 |
0 |
if (exists $row->[$column]) |
|
429
|
0 |
0 |
unless $self->brik_help_run_undef_arg("read_next", $input) |
|
430
|
0 |
0 |
unless $self->brik_help_run_file_not_found("read_next", $input) |
|
434
|
0 |
0 |
unless (defined $csv) |
|
436
|
0 |
0 |
unless $csv = "Text::CSV_XS"->new({"binary", 1, "sep_char", $self->separator, "allow_loose_quotes", 1, "allow_loose_escapes", 1, "escape_char", $self->escape}) |
|
445
|
0 |
0 |
unless my $fr = "Metabrik::File::Read"->new_from_brik_init($self) |
|
447
|
0 |
0 |
unless $fd = $fr->open($input) |
|
450
|
0 |
0 |
if ($self->first_line_is_header) |
|
461
|
0 |
0 |
if (defined $encoded_fields) |
|
467
|
0 |
0 |
if (defined $object_fields) |
|
480
|
0 |
0 |
if (defined $header) |
|
484
|
0 |
0 |
if ($encoded_fields or $object_fields) { } |
|
488
|
0 |
0 |
unless defined $v |
|
491
|
0 |
0 |
if ($encoded_fields and exists $encoded_fields->{$k} and length $v) |
|
493
|
0 |
0 |
unless (defined $decoded) |
|
499
|
0 |
0 |
unless (defined $gunzipped) |
|
507
|
0 |
0 |
if ($object_fields and exists $object_fields->{$k} and length $v and $v =~ /$object_re/ || $v =~ /$base64_re/) |
|
510
|
0 |
0 |
unless (defined $decoded) |
|
529
|
0 |
0 |
if ($csv->eof) |