| line |
true |
false |
branch |
|
26
|
0 |
0 |
unless defined $params{'apikey'} and length $params{'apikey'} |
|
45
|
41 |
11 |
if (&_isin($p, $properties->{'string'})) { } |
|
|
11 |
0 |
elsif (&_isin($p, $properties->{'array'})) { } |
|
50
|
6 |
5 |
if (defined $split_columns->{$p}) |
|
53
|
3 |
3 |
if $split_columns->{$p} == 1 |
|
94
|
0 |
2 |
unless scalar @$items_array > 0 |
|
96
|
0 |
2 |
unless defined $columns_split |
|
105
|
23 |
1 |
if ref $cols eq '' |
|
106
|
1 |
23 |
if ref $cols eq 'ARRAY' |
|
122
|
20 |
4 |
if (ref $columns eq '' and ref $company->$p eq '') |
|
131
|
3 |
1 |
if (ref $columns eq '' and ref $company->$p eq 'ARRAY') |
|
134
|
2 |
1 |
if ($p eq 'links') |
|
147
|
1 |
0 |
if (ref $columns eq 'ARRAY' and ref $company->$p eq 'ARRAY') |
|
154
|
0 |
1 |
if ($fact_size < $max_size_acc_split) |
|
163
|
0 |
2 |
if (scalar @header != scalar @row) |
|
181
|
0 |
63 |
unless $array_ref and defined $val |
|
183
|
52 |
300 |
if $v eq $val |
|
192
|
0 |
2 |
$val1 > $val2 ? : |
|
200
|
0 |
0 |
unless defined $text and length $text |
|
205
|
0 |
0 |
unless my $csv = 'Text::CSV'->new |
|
210
|
0 |
0 |
unless open my $fh, '>:encoding(utf8)', $csv_filename |
|
222
|
0 |
0 |
if $self->{'verbose'} or $params{'verbose'} |
|
224
|
0 |
0 |
if $self->{'verbose'} or $params{'verbose'} |
|
226
|
0 |
0 |
if $self->{'verbose'} or $params{'verbose'} |
|
230
|
0 |
0 |
unless close $fh |
|
234
|
0 |
0 |
if $self->{'verbose'} or $params{'verbose'} |