| line |
true |
false |
branch |
|
32
|
0 |
37 |
exists $params{'use_exceptions'} ? :
|
|
35
|
0 |
37 |
if ($params{'conf'}) { }
|
|
|
0 |
74 |
elsif (defined $app and length $app) { }
|
|
36
|
0 |
0 |
unless -e $params{'conf'}
|
|
45
|
37 |
0 |
unless $app
|
|
47
|
0 |
0 |
if ($conf)
|
|
58
|
0 |
0 |
unless my $dbr = $OBJECTS{$app}{$exc}
|
|
63
|
0 |
0 |
if blessed($_[0]) or $_[0]->isa([caller]->[0])
|
|
69
|
0 |
0 |
if blessed($_[0]) or $_[0]->isa([caller]->[0])
|
|
82
|
0 |
17 |
unless $params{-'conf'}
|
|
84
|
17 |
0 |
$params{-'admin'} ? :
|
|
|
0 |
17 |
unless $$self{'session'} = 'DBR::Misc::Session'->new('logger', $$self{'logger'}, 'admin', $params{-'admin'} ? 1 : 0, 'fudge_tz', $params{-'fudge_tz'}, 'use_exceptions', $params{-'use_exceptions'})
|
|
92
|
0 |
17 |
unless my $config = 'DBR::Config'->new('session', $$self{'session'})
|
|
95
|
0 |
17 |
unless $config->load_file('dbr', $self, 'file', $params{-'conf'})
|
|
120
|
0 |
15 |
if ($class and $class eq 'dbh')
|
|
125
|
0 |
15 |
unless my $instance = 'DBR::Config::Instance'->lookup('dbr', $self, 'session', $$self{'session'}, 'handle', $name, 'class', $class)
|
|
142
|
0 |
35 |
if ($class and $class eq 'dbh')
|
|
147
|
0 |
35 |
unless my $instance = 'DBR::Config::Instance'->lookup('dbr', $self, 'session', $$self{'session'}, 'handle', $name, 'class', $class)
|
|
159
|
0 |
0 |
unless $$self{'session'}->timezone($tz)
|
|
166
|
0 |
0 |
unless $class
|