| line |
true |
false |
branch |
|
26
|
0 |
0 |
if ($$self{'connect'} or $$self{'dsn'} or $$self{'database'} or $$self{'dbengine'}) |
|
55
|
0 |
0 |
if ($self->connect) { } |
|
|
0 |
0 |
elsif ($$self{'dsn'}) { } |
|
|
0 |
0 |
elsif ($$self{'dbname'}) { } |
|
|
0 |
0 |
elsif ($$self{'database'}) { } |
|
57
|
0 |
0 |
if (scalar @dsnarray == 2) { } |
|
74
|
0 |
0 |
if (lc $dbengine eq 'sqlite') |
|
76
|
0 |
0 |
if $dbengine |
|
77
|
0 |
0 |
if $dbname |
|
79
|
0 |
0 |
if $$self{'user'} |
|
80
|
0 |
0 |
if $$self{'password'} |
|
81
|
0 |
0 |
unless $dsn |
|
82
|
0 |
0 |
if $database |
|
83
|
0 |
0 |
if $dbname |
|
84
|
0 |
0 |
if $host |
|
85
|
0 |
0 |
if $port |
|
86
|
0 |
0 |
if $socket |
|
89
|
0 |
0 |
if $DBI::errstr |
|
90
|
0 |
0 |
unless $$self{'dbh'} |
|
100
|
0 |
0 |
unless my $query = shift() |
|
103
|
0 |
0 |
unless $$self{'dbh'} |
|
104
|
0 |
0 |
unless $$self{'dbh'} |
|
107
|
0 |
0 |
if ($DBI::err) { } |
|
121
|
0 |
0 |
unless my $query = shift() |
|
124
|
0 |
0 |
unless $$self{'dbh'} |
|
125
|
0 |
0 |
unless $$self{'dbh'} |
|
128
|
0 |
0 |
if ($DBI::err) { } |
|
|
0 |
0 |
elsif ($rc and ref $rc eq 'ARRAY') { } |
|
143
|
0 |
0 |
unless my $query = shift() |
|
146
|
0 |
0 |
unless $$self{'dbh'} |
|
147
|
0 |
0 |
unless $$self{'dbh'} |
|
150
|
0 |
0 |
if ($DBI::err) { } |
|
|
0 |
0 |
elsif ($rc and ref $rc eq 'ARRAY') { } |
|
165
|
0 |
0 |
unless my $query = shift() |
|
168
|
0 |
0 |
unless $$self{'dbh'} |
|
169
|
0 |
0 |
unless $$self{'dbh'} |
|
172
|
0 |
0 |
if ($DBI::err) { } |
|
|
0 |
0 |
elsif ($rc and ref $rc eq 'ARRAY') { } |
|
186
|
0 |
0 |
unless my $self = shift() |
|
187
|
0 |
0 |
unless my $table = shift() |
|
188
|
0 |
0 |
unless my $nvpairs = shift() |
|
192
|
0 |
0 |
unless $$self{'dbh'} |
|
193
|
0 |
0 |
unless $$self{'dbh'} |
|
199
|
0 |
0 |
unless @cols and @vals |
|
208
|
0 |
0 |
unless $$self{'dbh'}->do($query, undef, @vals) |
|
224
|
0 |
0 |
unless my $table_name = shift() |
|
226
|
0 |
0 |
if ($$self{'dbengine'} eq 'SQLite') { } |
|
|
0 |
0 |
elsif ($$self{'dbengine'} eq 'mysql') { } |
|
231
|
0 |
0 |
if ($self->error) { } |
|
243
|
0 |
0 |
unless defined $t |