Branch Coverage

blib/lib/Text/CSV/Pivot.pm
Criterion Covered Total %
branch 20 28 71.4


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