| line |
true |
false |
branch |
|
110
|
1 |
4 |
if ($self->csv) { } |
|
|
1 |
3 |
elsif ($self->tsv) { } |
|
|
2 |
1 |
elsif (not $self->silent) { } |
|
124
|
2 |
0 |
if ref $data eq 'ARRAY' |
|
131
|
7 |
1 |
unless substr($x, -1, 1) eq "\n" |
|
138
|
1 |
1 |
unless $self->ugly |
|
147
|
0 |
2 |
unless my $o = $$data[0] |
|
148
|
0 |
2 |
$self->fields ? : |
|
174
|
0 |
5 |
if ($self->pick) |
|
176
|
0 |
0 |
if (defined $m and defined $n) { } |
|
|
0 |
0 |
elsif (defined $m) { } |
|
186
|
0 |
5 |
if ($self->map) |
|
190
|
0 |
0 |
if (not ref $o) { } |
|
|
0 |
0 |
elsif (ref $o eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $o eq 'HASH') { } |
|
206
|
0 |
5 |
if ($self->grep) { } |
|
|
0 |
5 |
elsif ($self->json_path) { } |
|
|
0 |
5 |
elsif ($self->fields) { } |
|
212
|
0 |
0 |
if ($wanted) |
|
235
|
0 |
0 |
unless any sub {
$k =~ /(\A|[:\.]) \Q$_\E ([:\.]|\z)/x;
}
, @fields |
|
240
|
0 |
0 |
if (ref $data eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $data eq 'HASH') { } |
|
250
|
0 |
5 |
if ($self->output_flatten) |
|
252
|
0 |
0 |
if (ref $data eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $data eq 'ARRAY') { } |