| line |
true |
false |
branch |
|
97
|
3 |
26 |
unless $options{$required} |
|
99
|
0 |
5 |
if not $options{'length'} or $options{'length'} < 0 |
|
136
|
10074 |
10070 |
if (@$rows) |
|
137
|
4 |
10070 |
if $rows->[0]{'cipher'} |
|
141
|
65 |
10005 |
unless ($worked) |
|
143
|
0 |
65 |
unless $self->_dbh->do("UPDATE $self->{'uri_tablename'} SET uri=? WHERE id=?", undef, "$uri-BURNED$smash", $rows->[0]{'id'}) |
|
145
|
1 |
64 |
if $smash > 64 |
|
154
|
4 |
10066 |
unless (@$has_prefix) |
|
155
|
0 |
4 |
unless $self->_dbh->do("INSERT INTO $self->{'prefix_tablename'} (prefix) VALUES (?)", undef, $self->{'prefix'}) |
|
159
|
0 |
10070 |
unless $self->_dbh->do($qq, undef, $uri, time, $self->{'prefix'}) |
|
172
|
2 |
4 |
unless @$rows |
|
179
|
0 |
2 |
unless $self->_dbh->do("DELETE FROM $self->{'uri_tablename'} WHERE created < ?", undef, $when) |
|
197
|
50428 |
5 |
if exists $self->{'dbh'}{$dbname} |
|
200
|
0 |
5 |
if $dbname ne ":memory:" and not -f $dbname |
|
204
|
0 |
5 |
unless $db->do($self->{'sqlite_schema'}) |
|
209
|
0 |
5 |
unless $db->do("PRAGMA foreign_keys = ON") |
|
212
|
0 |
5 |
unless $db->do("PRAGMA journal_mode = WAL") |
|
220
|
0 |
0 |
if exists $self->{'dbh'}{$dbname} |
|
232
|
0 |
0 |
unless $result |
|
241
|
0 |
0 |
if exists $self->{'dbh'}{$dbname} |
|
252
|
0 |
0 |
if -f $defaults_file |
|
253
|
0 |
0 |
if $defaults_group |
|
258
|
0 |
0 |
unless $db->do($self->{'mysql_schema'}) |
|
271
|
1 |
0 |
if @$prefixes |
|
274
|
1 |
0 |
if @$uris |
|
281
|
0 |
2 |
unless $ncols |