| line |
true |
false |
branch |
|
16
|
1 |
9 |
unless defined $fn |
|
21
|
1 |
8 |
unless open my $fh, "<", $fn |
|
33
|
3 |
5 |
if ($magic_start eq "\37\213\b") |
|
34
|
1 |
2 |
if ord $magic_end != 4 |
|
38
|
0 |
2 |
unless require Compress::BGZF::Reader |
|
43
|
1 |
6 |
if $args{'with_description'} |
|
59
|
0 |
8 |
if (-e $fn_idx) |
|
64
|
0 |
8 |
unless open my $idx, ">:raw", $fn_idx |
|
77
|
25 |
40 |
if ($line =~ /^>(\S+)/u) { } |
|
|
37 |
3 |
elsif ($line =~ /^[A-Za-z\-]+(\r?\n?)$/u) { } |
|
|
1 |
2 |
elsif ($line =~ /\S/u) { } |
|
78
|
17 |
8 |
if (defined $curr_id) |
|
96
|
1 |
36 |
if ($bl_mismatch) |
|
101
|
1 |
35 |
if ($ll_mismatch) |
|
111
|
9 |
26 |
if $bl != $curr_bases |
|
112
|
10 |
25 |
if $ll != $curr_bytes |
|
124
|
5 |
0 |
if (defined $curr_id) |
|
149
|
7 |
0 |
unless -e $fn_idx |
|
155
|
0 |
4 |
if ($mtime_fas > $mtime_idx) |
|
163
|
0 |
4 |
unless open my $in, "<", $fn_idx |
|
170
|
1 |
14 |
if defined $self->{'idx'}{$name} |
|
200
|
0 |
8 |
unless defined $self->{'idx'}{$id} |
|
208
|
2 |
6 |
if $start_bp < 0 or $end_bp > $len |
|
218
|
2 |
4 |
if ($start_bp > 1 or $end_bp < $len) |
|
223
|
1 |
5 |
if ($self->{'with_description'}) |
|
233
|
0 |
65 |
unless read $fh, $chr, 1 |
|
236
|
2 |
63 |
if ($chr eq ">") |
|
237
|
0 |
2 |
if $p == 0 |
|
241
|
1 |
1 |
if $prev =~ /[\r\n]/u |
|
247
|
0 |
1 |
unless CORE::length $string |
|
249
|
1 |
0 |
if ($string =~ /^(\S+)(?:\s+(.*))?$/u) |
|
252
|
0 |
1 |
if $nid ne $id |