| line |
true |
false |
branch |
|
32
|
5 |
0 |
if (exists $fields{$key}) { } |
|
33
|
5 |
0 |
if defined $value |
|
39
|
0 |
5 |
unless defined $$self{$_} |
|
42
|
1 |
0 |
unless -e $$self{'sql_control_file'} |
|
56
|
0 |
0 |
unless open SQLCTL, $$self{'sql_control_file'} |
|
64
|
0 |
0 |
unless defined $key and defined $val |
|
71
|
0 |
0 |
unless exists $$self{'_db'}{'server'} |
|
73
|
0 |
0 |
unless exists $$self{'_db'}{'login'} |
|
75
|
0 |
0 |
unless exists $$self{'_db'}{'password'} |
|
77
|
0 |
0 |
if not exists $$self{'_db'}{'db'} |
|
87
|
0 |
0 |
unless $$self{'dbh'} = 'DBI'->connect($dsn, $$self{'_db'}{'login'}, $$self{'_db'}{'password'}) |
|
95
|
0 |
0 |
if defined $$self{'dbh'} |
|
133
|
0 |
0 |
$_ eq '' ? : |
|
250
|
0 |
0 |
$$self{'multihosting'} ? : |
|
259
|
0 |
0 |
$$self{'multihosting'} ? : |
|
271
|
0 |
0 |
unless -e $dir |
|
273
|
0 |
0 |
if $$self{'multihosting'} and not -e $dir |
|
285
|
0 |
0 |
if ($@) |
|
299
|
0 |
0 |
unless $$self{'dbh'}->do($sql) |