| line |
true |
false |
branch |
|
83
|
1 |
0 |
if defined $ENV{'HOME'} |
|
84
|
1 |
0 |
if (defined $ENV{'OBDA_SEARCH_PATH'}) |
|
123
|
0 |
0 |
unless $Bio::DB::Registry::HOME |
|
124
|
0 |
0 |
if ($@) |
|
126
|
0 |
0 |
defined &Win32::LoginName ? : |
|
131
|
0 |
0 |
unless @ini_files |
|
135
|
0 |
0 |
unless open my $FH, '<', $file |
|
137
|
0 |
0 |
if (/^VERSION=([\d\.]+)/) |
|
138
|
0 |
0 |
if ($1 > $Bio::DB::Registry::OBDA_SPEC_VERSION or not $1) |
|
144
|
0 |
0 |
if /^#/ |
|
145
|
0 |
0 |
if /^\s/ |
|
146
|
0 |
0 |
if (/^\[(\S+)\]/) |
|
158
|
0 |
0 |
unless (exists $self->{'_dbs'}{$db}) |
|
163
|
0 |
0 |
if (defined $implement{$hash->{$db}{'protocol'}}) { } |
|
171
|
0 |
0 |
if ($@) { } |
|
179
|
0 |
0 |
if ($@) |
|
201
|
0 |
0 |
unless (defined $dbname) |
|
205
|
0 |
0 |
unless (exists $self->{'_dbs'}{$dbname}) |
|
225
|
0 |
0 |
unless defined $self->{'_dbs'} and ref($self->{'_dbs'}) =~ /HASH/i |
|
242
|
0 |
0 |
if ($Bio::DB::Registry::OBDA_SEARCH_PATH) |
|
245
|
0 |
0 |
unless -e $file |
|
249
|
0 |
0 |
if $Bio::DB::Registry::HOME and -e "$Bio::DB::Registry::HOME/$Bio::DB::Registry::PRIVATE_DIR/$Bio::DB::Registry::REGISTRY" |
|
251
|
0 |
0 |
if -e "$Bio::DB::Registry::PUBLIC_DIR/$Bio::DB::Registry::REGISTRY" |
|
270
|
0 |
0 |
$Bio::DB::Registry::OBDA_SEARCH_PATH ? : |
|
284
|
0 |
0 |
unless -e "$Bio::DB::Registry::HOME/$Bio::DB::Registry::PRIVATE_DIR" |
|
286
|
0 |
0 |
if $@ |
|
289
|
0 |
0 |
unless open my $F, '>', "$Bio::DB::Registry::HOME/$Bio::DB::Registry::PRIVATE_DIR/$Bio::DB::Registry::REGISTRY" |