| line |
true |
false |
branch |
|
244
|
2 |
0 |
if not $INC{'AnyDBM_File.pm'} |
|
275
|
2 |
0 |
if ($INC{'Inline/C.pm'}) { } |
|
390
|
1 |
19 |
if ($ref eq 'ARRAY') { } |
|
396
|
9 |
10 |
if (-d $path) { } |
|
|
10 |
0 |
elsif (-f _) { } |
|
399
|
0 |
9 |
if $^O =~ /^MSWin/i and eval 'use Win32; 1' |
|
431
|
0 |
1 |
unless tie $$fh, 'Bio::DB::Indexed::Stream', $self |
|
449
|
38 |
0 |
unless my $args = $self->{'dbmargs'} |
|
450
|
0 |
0 |
ref $args eq 'ARRAY' ? : |
|
484
|
0 |
9 |
if scalar @files == 0 |
|
533
|
9 |
9 |
if -d $path |
|
623
|
0 |
22 |
unless defined $id |
|
624
|
4 |
18 |
unless exists $self->{'offsets'}{$id} |
|
662
|
12 |
8 |
if ($force_reindex) |
|
664
|
0 |
12 |
if -e $index |
|
666
|
2 |
10 |
if -e "$index.dir" |
|
667
|
2 |
10 |
if -e "$index.pag" |
|
681
|
20 |
43 |
if ($m > $modtime) |
|
684
|
63 |
0 |
if ($m > $indextime) |
|
694
|
0 |
20 |
unless $self->{'offsets'} = $self->_open_index($index, $reindex) |
|
695
|
20 |
0 |
if ($reindex) |
|
715
|
20 |
18 |
$write ? : |
|
717
|
0 |
38 |
unless tie %offsets, 'AnyDBM_File', $index_file, $flags, 420, @dbmargs |
|
746
|
20 |
25 |
if (not defined $start || defined $stop || defined $strand and $id =~ /$compound_id/x) |
|
756
|
7 |
2 |
$stop > 0 ? : |
|
763
|
8 |
37 |
if ($start > $stop) |
|
779
|
44 |
0 |
$alphabet eq 'protein' ? : |
|
|
11 |
44 |
$alphabet eq 'rna' ? : |
|
|
2942 |
55 |
$alphabet eq 'dna' ? : |
|
789
|
14 |
3039 |
ref $self->{'makeid'} eq 'CODE' ? : |
|
796
|
9 |
96 |
unless defined $linelength |
|
797
|
0 |
96 |
if $linelength > 65535 |
|
808
|
0 |
20 |
unless my $fh = 'IO::File'->new($file) |
|
820
|
0 |
20 |
$curr_line =~ /\r\n$/ ? : |
|
832
|
2 |
86 |
if $n < 0 |
|
833
|
2 |
86 |
if $n >= $seqlen |
|
841
|
0 |
49 |
unless defined $id |
|
842
|
1 |
48 |
unless my $file = $self->file($id) |
|
843
|
0 |
0 |
unless return eval {
do {
$self->_fhcache('File::Spec'->catfile($self->{'dirname'}, $file))
}
} |
|
851
|
9 |
39 |
unless ($self->{'fhcache'}{$path}) |
|
852
|
0 |
9 |
if ($self->{'curopen'} >= $self->{'maxopen'}) |
|
888
|
0 |
1 |
unless defined $id |
|
889
|
0 |
1 |
unless my $offset = $self->{'offsets'}{$id} |
|
906
|
0 |
16 |
unless defined $id |
|
907
|
0 |
16 |
unless my $offset = $self->{'offsets'}{$id} |
|
924
|
0 |
30 |
unless defined $id |
|
925
|
1 |
29 |
unless my $offset = $self->{'offsets'}{$id} |
|
942
|
0 |
0 |
unless defined $id |
|
943
|
0 |
0 |
unless my $offset = $self->{'offsets'}{$id} |
|
960
|
0 |
0 |
unless defined $id |
|
961
|
0 |
0 |
unless my $offset = $self->{'offsets'}{$id} |
|
979
|
0 |
0 |
unless defined $id |
|
980
|
0 |
0 |
unless $self->{'offsets'}{$id} |
|
997
|
0 |
13 |
unless defined $id |
|
998
|
0 |
13 |
unless my $offset = $self->{'offsets'}{$id} |
|
1000
|
2 |
1 |
$alphabet == 3 ? : |
|
|
2 |
3 |
$alphabet == 2 ? : |
|
|
8 |
5 |
$alphabet == 1 ? : |
|
1020
|
0 |
59 |
unless defined $id |
|
1021
|
1 |
58 |
unless my $offset = $self->{'offsets'}{$id} |
|
1034
|
63 |
62 |
unless (exists $self->{'filepath2no'}{$path}) |
|
1070
|
0 |
20 |
if ($maxsize > $fourGB) { } |
|
1131
|
10 |
0 |
if (defined $fh) |
|
1137
|
6 |
21 |
if ($self->{'clean'} or $self->{'indexing'}) |
|
1142
|
0 |
6 |
if -e $index |
|
1144
|
5 |
1 |
if -e "$index.dir" |
|
1145
|
5 |
1 |
if -e "$index.pag" |
|
1171
|
1 |
9 |
unless defined $key |