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 |