| line |
true |
false |
branch |
|
279
|
0 |
6 |
if $ugid |
|
280
|
3 |
3 |
if $desc |
|
281
|
3 |
3 |
if $mems |
|
282
|
3 |
3 |
if defined $size |
|
283
|
4 |
2 |
if $dispid |
|
284
|
0 |
6 |
if $id |
|
287
|
0 |
6 |
if defined $v |
|
288
|
6 |
0 |
unless (defined $seqfact) |
|
294
|
4 |
2 |
if (not $species and (defined $self->unigene_id and $self->unigene_id =~ /^([A-Za-z]+)\.[0-9]/)) |
|
322
|
5 |
14 |
if (defined $value) |
|
344
|
4 |
4 |
if (defined $value) |
|
402
|
0 |
0 |
if (@_) { } |
|
406
|
0 |
0 |
if ($acc = shift()) |
|
429
|
4 |
3 |
if ($ll) { } |
|
508
|
1 |
3 |
if (defined $value) { } |
|
|
2 |
2 |
elsif (not defined $obj->{'scount'} and defined $obj->sequences) { } |
|
626
|
5 |
22 |
if @_ |
|
646
|
6 |
86 |
if (@_) |
|
648
|
4 |
2 |
if ($species and not ref $species) |
|
714
|
0 |
6 |
unless defined $self->sequences |
|
717
|
0 |
6 |
if (@_ and $n != $_[0]) |
|
745
|
0 |
0 |
if @_ |
|
770
|
2 |
0 |
if (@$mems and ref $mems->[0] eq 'HASH') |
|
817
|
0 |
72 |
if (@_) { } |
|
|
3 |
69 |
elsif (not exists $self->{'annotation'}) { } |
|
851
|
0 |
0 |
if (@$memlist and ref $memlist->[0] eq 'HASH') |
|
1056
|
6 |
14 |
unless (exists $self->{$queuename}) |
|
1062
|
6 |
14 |
unless (@$queue) |
|
1114
|
0 |
0 |
if @_ |
|
1136
|
6 |
85 |
if @_ |
|
1158
|
6 |
1 |
if @_ |
|
1237
|
5 |
85 |
unless (exists $obj->{'_seq_queue'}) |
|
1243
|
3 |
87 |
unless (@$queue) |
|
1252
|
3 |
84 |
if ref $seq_h ne 'HASH' |
|
1258
|
264 |
325 |
if $k =~ /acc|pid|nid|version/ |
|
1273
|
84 |
0 |
$seq_h->{'nid'} && $seq_h->{'nid'} =~ /^g\d+$/ ? : |
|
|
2 |
82 |
$seq_h->{'acc'} =~ /^NM_/ ? : |
|
1294
|
6 |
84 |
if (defined $obj) |
|
1295
|
0 |
6 |
unless (ref $obj and $obj->isa('Bio::Factory::SequenceFactoryI')) |
|
1325
|
11 |
11 |
if (@_) |
|
1327
|
0 |
11 |
unless (defined $val) |
|
1329
|
0 |
0 |
$ann ? : |
|
1333
|
11 |
11 |
if (defined $ann and not $val) { } |
|
|
11 |
0 |
elsif ($val) { } |
|
1338
|
6 |
5 |
unless (defined $ann) |
|
1365
|
20 |
14 |
if ($arr) { } |
|
1400
|
3 |
3 |
if ($acc) { } |
|
1412
|
3 |
0 |
if ($dbname) |
|
1437
|
4 |
0 |
if ($dbname) { } |
|
1439
|
1 |
0 |
if ($ann->database eq $dbname) { } |