| line |
true |
false |
branch |
|
65
|
0 |
18 |
$mode eq 'write' ? : |
|
68
|
2 |
16 |
$file =~ /\.gz$/ ? : |
|
71
|
2 |
16 |
$is_gz ? : |
|
80
|
0 |
18 |
unless &any(sub {
$_ eq $ext;
}
, @exts) |
|
94
|
18 |
0 |
$mode eq 'read' ? : |
|
101
|
2 |
19 |
if ($file =~ /\.gz$/) { } |
|
102
|
0 |
2 |
unless gunzip($file, \$str) |
|
116
|
0 |
24 |
if ($file =~ /\.gz$/) { } |
|
118
|
0 |
0 |
unless gunzip($file, \$yaml_str) |
|
173
|
0 |
0 |
if ($match) { } |
|
175
|
0 |
0 |
if $verbose |
|
189
|
0 |
2 |
if (ref $data eq ref []) |
|
191
|
0 |
0 |
if ($n == 1) { } |
|
205
|
5 |
13 |
$file && -f $file ? : |
|
208
|
13 |
5 |
unless defined $data |
|
235
|
2 |
3 |
if (@errors) |
|
261
|
2675 |
0 |
unless (not defined $item->{$key} or ref $item->{$key} eq "HASH" and not %{$item->{$key};} or ref $item->{$key} eq "ARRAY" and not @{$item->{$key};} or $item->{$key} eq "NA" or $item->{$key} eq "NaN") |
|
284
|
14 |
2 |
unless @$include_terms |
|
302
|
0 |
14 |
ref $ref_data->[0] eq ref {} ? : |
|
|
14 |
4 |
if @$ref_data == 1 |
|
314
|
2 |
0 |
$$append_prefixes[$prefix_count - 1] ? : |
|
321
|
1 |
1 |
if (ref $item eq ref []) { } |
|
367
|
0 |
37 |
unless defined $id |
|
378
|
15 |
2 |
unless $self->{'format'} eq "PXF" |
|
381
|
0 |
2 |
if grep {$_ eq "interpretations";} @{$$self{"exclude_terms"};} |
|
383
|
0 |
2 |
if defined $self->{'verbose'} |
|
400
|
2 |
1 |
if (exists $genomic_interpretation->{'variantInterpretation'}) { } |
|
|
1 |
0 |
elsif (exists $genomic_interpretation->{'geneDescriptor'}) { } |
|
405
|
1 |
1 |
if (exists $variant_interpretation->{'variationDescriptor'}{'geneContext'}{'valueId'}) { } |
|
|
1 |
0 |
elsif (exists $variant_interpretation->{'variationDescriptor'}{'id'}) { } |
|
434
|
2 |
1 |
exists $genomic_interpretation->{'variantInterpretation'} ? : |
|
446
|
2 |
2 |
unless exists $data->{'interpretations'} |
|
460
|
2 |
0 |
if (ref $data eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $data eq 'HASH') { } |
|
462
|
4 |
0 |
if ref $entry eq "HASH" |