| line |
true |
false |
branch |
|
54
|
0 |
5 |
if (defined $user) { } |
|
56
|
0 |
0 |
if length $user == 0 |
|
66
|
0 |
5 |
if (not defined $config or length $config == 0) |
|
68
|
0 |
0 |
unless ($home) |
|
74
|
0 |
5 |
if (my(@keys) = keys %params) |
|
88
|
0 |
19 |
if (not defined $db or $db =~ /^\s*$/) |
|
96
|
0 |
19 |
if (defined $mode) |
|
99
|
0 |
0 |
if ($mode =~ /^\s*$/) |
|
109
|
0 |
19 |
wantarray ? : |
|
118
|
0 |
5 |
unless (-f $config) |
|
123
|
0 |
5 |
unless $cfg->read($config) |
|
129
|
0 |
19 |
unless ($key =~ /\./) |
|
138
|
9 |
10 |
unless (exists $cred{$db_mode}) |
|
144
|
1 |
18 |
unless (exists $defaults{$param}) |
|
169
|
9 |
0 |
exists $defaults{$key} ? : |
|
179
|
0 |
27 |
unless $db |
|
184
|
9 |
18 |
if exists $self->{'_cred'}{$db_mode} |
|
198
|
0 |
0 |
unless (exists $self->{'_options'}{$db_mode}) |
|
221
|
0 |
0 |
unless (exists $self->{'_dsn'}{$db_mode}) |