| line |
true |
false |
branch |
|
89
|
9 |
62 |
unless defined $v |
|
93
|
7 |
55 |
if ($ref) |
|
94
|
7 |
0 |
if $ref eq 'ARRAY' or $ref eq 'HASH' |
|
104
|
2 |
53 |
if (($flags & 1536) == 1536) |
|
107
|
2 |
0 |
if $obj->NV == 0 and $obj->PV eq '' or $obj->NV == 1 and $obj->PV eq '1' |
|
112
|
32 |
21 |
if $flags & 1024 |
|
113
|
0 |
21 |
if $flags & 512 |
|
114
|
21 |
0 |
if $flags & 256 |
|
124
|
5 |
23 |
ref $data eq 'ARRAY' ? : |
|
181
|
2 |
1 |
unless exists $$self{'auto_commit'} |
|
184
|
0 |
3 |
unless $$self{'dbh'} = 'DBI'->connect("dbi:SQLite:$$self{'dbname'}", '', '', {'AutoCommit', $$self{'auto_commit'}, 'RaiseError', 1, 'PrintError', 0}) |
|
231
|
0 |
160 |
if $$self{'debug'} |
|
235
|
65 |
49 |
unless $$sth{'NUM_OF_FIELDS'} |
|
244
|
2 |
268 |
if $data and $$types[$_] eq 'json text' |
|
292
|
1 |
0 |
!defined($if_not_exists) || $if_not_exists ? : |
|
294
|
1 |
0 |
shift() ? : |
|
316
|
0 |
48 |
if $@ and not $@ =~ /duplicate column name/ |
|
331
|
0 |
15 |
unless my $table_name = shift() |
|
336
|
1 |
14 |
unless $$converted_data[0] |
|
343
|
12 |
1 |
if defined $v |
|
349
|
1 |
13 |
unless $k |
|
352
|
13 |
0 |
unless $error_if_exists |
|
378
|
1 |
13 |
$upsert ? : |
|
389
|
0 |
13 |
unless $converted_data and $$converted_data[0] |
|
401
|
2 |
21 |
unless my $type = $column_types{lc $key} |
|
402
|
2 |
21 |
if $type eq 'json text' |
|
408
|
14 |
1 |
if (@keys) { } |
|
422
|
0 |
12 |
ref $data eq 'HASH' && $$data{'keys'} ? : |
|
456
|
0 |
4 |
unless defined $data and exists $$data[0] |
|
543
|
4 |
11 |
$if_exists ? : |