| line |
true |
false |
branch |
|
23
|
0 |
4 |
if @args == 1 and ref $args[0] ne 'HASH' |
|
32
|
0 |
16 |
unless defined $val |
|
37
|
5 |
3 |
if (defined $val) |
|
42
|
3 |
1 |
unless exists $self->{'col_skip_idx'} |
|
43
|
4 |
0 |
unless exists $args[0]{'binary'} |
|
45
|
0 |
4 |
unless $self->{'_csv_handler'} = 'Text::CSV'->new($args[0]) |
|
49
|
0 |
4 |
unless open my $in, '<:encoding(utf8)', $input_file |
|
54
|
0 |
4 |
unless (defined $output_file) |
|
59
|
0 |
4 |
unless open my $out, '>:encoding(utf8)', $output_file |
|
253
|
5 |
7 |
if $index == $col_name_idx or $index == $col_value_idx or grep(($_ == $index), @$col_skip_idx) > 0 |
|
268
|
10 |
6 |
if $index == $col_key_idx or $index == $col_name_idx or $index == $col_value_idx or grep(($_ == $index), @$col_skip_idx) > 0 |
|
273
|
2 |
4 |
if ($index > $col_name_idx or $index > $col_value_idx) { } |
|
274
|
0 |
2 |
if ($col_name_idx > $col_value_idx) { } |
|
317
|
76 |
38 |
if $index == $col_key_idx or $index == $col_name_idx or $index == $col_value_idx |