Branch Coverage

lib/Convert/Pheno/CSV.pm
Criterion Covered Total %
branch 46 66 69.7


line true false branch
72 2171 2912 unless $value
79 2119 793 @tmp % 2 == 0 ? :
185 1 386338 if ($line =~ /^COPY \"?(\w+)\"?\.$table_name_lc /)
204 67708 318631 if ($switch)
210 1 67707 if $line =~ /^\\\.$/
224 0 67707 unless exists $$person{$hash_slice->{'person_id'}}
235 67707 0 if $encoded_data ne "null"
239 0 67707 if $self->{'verbose'} and $count % 10000 == 0
242 0 1 if $self->{'verbose'}
264 1 67706 $count == 1 ? :
309 501 117 unless $paragraph =~ /^COPY/
313 63 54 unless scalar @lines > 2
325 35 19 unless &any(sub {
328 0 19 if $self->{'verbose'}
375 14 12049 if $count == $max_lines_sql
377 0 12049 if $self->{'verbose'} and $count % 1000 == 0
382 0 19 if $self->{'verbose'}
485 6000 0 if (exists $item->{'person_id'} and $item->{'person_id'})
489 5000 1000 if (&any(sub {
666 0 0 if $encoded_data ne "null"
671 0 0 if $self->{'verbose'} and $count % 10000 == 0
673 0 0 if $self->{'verbose'}
707 0 4 $mode eq 'w' ? :
3 4 $mode eq 'a' ? :
709 3 4 if ($filepath =~ /\.gz$/) { }
710 1 2 if ($mode eq 'a' or $mode eq 'w') { }
711 1 0 $mode eq 'a' ? :
733 0 1 $ext eq '.tsv.gz' ? :
0 1 $ext eq '.tsv' ? :
0 1 $ext eq '.csv.gz' ? :
24 1 $ext eq '.csv' ? :
3 25 $sep ? :
742 0 28 $ext =~ /\.gz/ ? :