| 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", '', '') |