| line |
true |
false |
branch |
|
83
|
0 |
1 |
unless $self->_initialize_io(@args) |
|
88
|
1 |
2 |
if length $line > 2 |
|
109
|
0 |
1 |
if $self->{'end'} |
|
114
|
12 |
16 |
if ($line =~ /^\d{2}/) |
|
118
|
1 |
27 |
if $line =~ /^AC\s/ |
|
119
|
1 |
27 |
if $line =~ /^BF\s/ |
|
120
|
1 |
27 |
if $line =~ /^ID\s/ |
|
121
|
1 |
27 |
if $line =~ /^XX/ and $i > 0 |
|
123
|
0 |
1 |
unless (defined $id and defined $accn) |
|
128
|
1 |
4 |
if ($line =~ /^BA\s/) |
|
132
|
0 |
5 |
if ($line =~ /^RN/) |
|
138
|
1 |
4 |
if $line =~ m[^//] |
|
142
|
1 |
0 |
if $sites |
|
190
|
0 |
48 |
unless defined do {
$_
}->[$i] |
|
192
|
0 |
12 |
if (do {
$cA
}->[$i] + do {
$cC
}->[$i] + do {
$cG
}->[$i] + do {
$cT
}->[$i] == 0) { } |
|
211
|
0 |
12 |
if $zero == 0 |
|
226
|
0 |
0 |
if $field =~ /XX/ |
|
229
|
0 |
0 |
if ($field =~ /RX/) |
|
234
|
0 |
0 |
if ($field =~ /RT/) |
|
238
|
0 |
0 |
if ($field =~ /RA/) |
|
242
|
0 |
0 |
if ($field =~ /RL/) |
|
250
|
0 |
0 |
if ($db eq 'MEDLINE') { } |
|
|
0 |
0 |
elsif ($dbid) { } |