| line |
true |
false |
branch |
|
48
|
0 |
0 |
if $$handle{'AutoCommit'} == 0 |
|
60
|
0 |
0 |
if ($_[0] =~ /^(dbtype|usr|pwd|db|srv|commit)$/) { } |
|
70
|
0 |
0 |
$commit =~ /off/i ? : |
|
75
|
0 |
0 |
unless defined $db_type |
|
76
|
0 |
0 |
unless defined $user |
|
77
|
0 |
0 |
unless defined $pass |
|
78
|
0 |
0 |
unless defined $server |
|
79
|
0 |
0 |
unless defined $db |
|
80
|
0 |
0 |
unless defined $commit |
|
81
|
0 |
0 |
$commit =~ /off/i ? : |
|
84
|
0 |
0 |
if length $db_type < 1 |
|
88
|
0 |
0 |
if $db |
|
89
|
0 |
0 |
$server eq '' ? : |
|
93
|
0 |
0 |
unless my $dbh = 'DBI'->connect($dsn, "$user", "$pass", {'RaiseError', 0, 'PrintError', 1, 'AutoCommit', $commit}) |
|
108
|
0 |
0 |
if $$handle{'AutoCommit'} == 0 |
|
132
|
0 |
0 |
unless defined $handle |
|
134
|
0 |
0 |
unless (defined $seq) |
|
135
|
0 |
0 |
if $$handle{'AutoCommit'} |
|
156
|
0 |
0 |
unless $handle |
|
167
|
0 |
0 |
unless ($handle) |
|
183
|
0 |
0 |
unless (defined $handle) |
|
188
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') { } |
|
203
|
0 |
0 |
if (length $sql == 0) |
|
204
|
0 |
0 |
if $$handle{'AutoCommit'} == 0 |
|
210
|
0 |
0 |
unless ($sth->execute(@$params)) |
|
211
|
0 |
0 |
if $$handle{'AutoCommit'} == 0 |
|
244
|
0 |
0 |
unless (defined $handle) |
|
248
|
0 |
0 |
if (length @sql == 0) |
|
249
|
0 |
0 |
if $$handle{'AutoCommit'} == 0 |
|
256
|
0 |
0 |
unless ($handle->do($command)) |
|
257
|
0 |
0 |
if $$handle{'AutoCommit'} == 0 |