line |
true |
false |
branch |
54
|
0 |
7 |
unless defined $statement |
59
|
1 |
6 |
if ($statement =~ /^(\w+)$/) { } |
65
|
0 |
1 |
if (defined $key and defined $val) |
77
|
0 |
6 |
if (defined $key or defined $val) |
81
|
0 |
6 |
unless $statement =~ /count\s*\(/i |
90
|
0 |
7 |
unless defined $statement |
91
|
0 |
7 |
unless my $c = $dbh->prepare($statement) |
101
|
0 |
3 |
unless my $d = driver($dbh) |
102
|
0 |
3 |
unless $d =~ /sqlite/i |
108
|
0 |
2 |
unless my $d = driver($dbh) |
109
|
2 |
0 |
unless $d =~ /mysql/i |
115
|
0 |
8 |
unless defined $dbh |
116
|
0 |
8 |
unless defined $$dbh{'Driver'} |
117
|
0 |
8 |
unless my $n = $$dbh{'Driver'}{'Name'} |
123
|
0 |
0 |
unless defined $dbh and defined $tablename |
132
|
0 |
3 |
unless defined $dbh and defined $tablename |
136
|
0 |
3 |
unless defined $id |
144
|
0 |
1 |
unless defined $dbh |
149
|
1 |
0 |
if (defined $$dbh{'ChildHandles'}) |
153
|
4 |
2 |
unless defined $handle |
154
|
0 |
2 |
unless $handle |
157
|
0 |
2 |
if ($$handle{'Active'}) |
173
|
0 |
4 |
unless defined $dbh |
174
|
0 |
4 |
unless defined $tablename |
179
|
1 |
3 |
unless my $t = $dbh->prepare("select * from $tablename") |
180
|
0 |
3 |
unless $t->execute |
186
|
0 |
2 |
unless defined $dbh and defined $tablename |
188
|
0 |
2 |
unless $dbh->table_exists($tablename) |
196
|
0 |
2 |
unless defined $d and scalar @$d |
220
|
0 |
2 |
unless defined $statement |
224
|
0 |
2 |
unless my $q = $dbh->prepare($statement) |
243
|
0 |
0 |
unless defined $dbname |
244
|
0 |
0 |
unless defined $user |
245
|
0 |
0 |
unless defined $pass |
250
|
0 |
0 |
unless my $dbh = 'DBI'->connect("DBI:mysql:database=$dbname;host=$host", $user, $pass) |
258
|
0 |
3 |
unless defined $abs_db |
262
|
0 |
3 |
unless my $dbh = 'DBI'->connect("dbi:SQLite:$abs_db", '', '') |