| line |
true |
false |
branch |
|
98
|
3 |
72 |
if (index($entry, '=') == 0) { } |
|
|
9 |
63 |
elsif ($entry =~ /^>.+$/msx) { } |
|
99
|
3 |
0 |
if (defined $name and $seqchar) |
|
103
|
3 |
0 |
if ($aln and $entry =~ /score\s*=\s*(\d+)/) |
|
110
|
6 |
3 |
if (defined $name) |
|
122
|
0 |
3 |
if (defined $name) |
|
126
|
3 |
0 |
$aln->num_sequences ? : |
|
147
|
0 |
2 |
unless ($aln and $aln->isa('Bio::Align::AlignI')) |
|
158
|
1 |
6 |
$strand == -1 ? : |
|
|
2 |
7 |
$strand == 1 ? : |
|
164
|
0 |
9 |
unless $self->_print(">$name $desc\n") |
|
167
|
9 |
0 |
if (defined $seq and $length > 0) { } |
|
172
|
0 |
9 |
unless $self->_print($seq) |
|
176
|
1 |
1 |
if $aln->score |
|
177
|
0 |
2 |
unless $self->_print("= $alndesc\n") |
|
180
|
2 |
0 |
if $self->_flush_on_write and defined $self->_fh |
|
215
|
3 |
2 |
if @_ |
|
225
|
9 |
0 |
if ($entry =~ /^>\s*\d+:(\d+)-(\d+)\s+([+-]{1})(?:\s+(\S+)\s*(\S\.*)?)?/) { } |
|
|
0 |
0 |
elsif (not $entry =~ /^>\s*\d+:/) { } |
|
227
|
4 |
5 |
$3 eq '+' ? : |