| line |
true |
false |
branch |
|
24
|
0 |
4 |
if @args == 1 and ref $args[0] ne 'HASH' |
|
33
|
0 |
16 |
unless defined $val |
|
38
|
5 |
3 |
if (defined $val) |
|
43
|
3 |
1 |
unless exists $self->{'col_skip_idx'} |
|
44
|
4 |
0 |
unless exists $args[0]{'binary'} |
|
46
|
0 |
4 |
unless $self->{'_csv_handler'} = 'Text::CSV'->new($args[0]) |
|
50
|
0 |
4 |
unless open my $in, '<:encoding(utf8)', $input_file |
|
55
|
0 |
4 |
unless (defined $output_file) |
|
60
|
0 |
4 |
unless open my $out, '>:encoding(utf8)', $output_file |
|
285
|
5 |
7 |
if $index == $col_name_idx or $index == $col_value_idx or grep(($_ == $index), @$col_skip_idx) > 0 |
|
300
|
10 |
6 |
if $index == $col_key_idx or $index == $col_name_idx or $index == $col_value_idx or grep(($_ == $index), @$col_skip_idx) > 0 |
|
305
|
2 |
4 |
if ($index > $col_name_idx or $index > $col_value_idx) { } |
|
306
|
0 |
2 |
if ($col_name_idx > $col_value_idx) { } |
|
349
|
76 |
38 |
if $index == $col_key_idx or $index == $col_name_idx or $index == $col_value_idx |