| line |
true |
false |
branch |
|
20
|
0 |
17 |
unless $$self{'session'}
|
|
32
|
0 |
17 |
unless my $dbr = $params{'dbr'}
|
|
33
|
0 |
17 |
unless my $file = $params{'file'}
|
|
34
|
0 |
17 |
if ($LOADED_FILES{$file})
|
|
42
|
0 |
17 |
unless open my $fh, '<', $file
|
|
45
|
85 |
34 |
if ($row =~ /^(.*?)\#/)
|
|
50
|
102 |
17 |
unless length $row
|
|
53
|
0 |
17 |
if ($row =~ /^---/)
|
|
73
|
0 |
17 |
unless my $instance = 'DBR::Config::Instance'->register('dbr', $dbr, 'session', $$self{'session'}, 'spec', $instspec)
|
|
78
|
17 |
0 |
if ($instance->dbr_bootstrap)
|
|
80
|
0 |
17 |
unless $self->load_dbconf('dbr', $dbr, 'instance', $instance)
|
|
99
|
0 |
17 |
unless my $dbr = $params{'dbr'}
|
|
100
|
0 |
17 |
unless my $parent_inst = $params{'instance'}
|
|
104
|
0 |
17 |
unless my $instances = 'DBR::Config::Instance'->load_from_db('session', $$self{'session'}, 'dbr', $dbr, 'parent_inst', $parent_inst)
|
|
114
|
17 |
0 |
if (%schema_ids)
|
|
115
|
0 |
17 |
unless my $schemas = 'DBR::Config::Schema'->load('session', $$self{'session'}, 'schema_id', [keys %schema_ids], 'instance', $parent_inst)
|