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 |