| line |
true |
false |
branch |
|
22
|
0 |
23 |
if @_ |
|
23
|
5 |
10 |
if @_ |
|
24
|
0 |
1 |
if @_ |
|
25
|
0 |
4 |
if @_ |
|
26
|
0 |
8 |
if @_ |
|
27
|
0 |
5 |
if @_ |
|
30
|
0 |
6 |
if @_ |
|
182
|
1 |
2 |
if $@ |
|
187
|
2 |
0 |
if ($self->can($attr)) |
|
191
|
0 |
0 |
if exists $_extensions{$attr} |
|
218
|
0 |
46 |
unless $dbd_name |
|
221
|
37 |
71 |
if (lc $dbd_name eq lc $d) |
|
227
|
0 |
46 |
unless $_dbd |
|
233
|
0 |
12 |
unless $dbi eq "dbi" |
|
234
|
1 |
11 |
unless $db_part |
|
242
|
12 |
2 |
if $dsn_str =~ /^dbi/u |
|
247
|
0 |
16 |
unless $args->{'driver'} |
|
252
|
13 |
3 |
if $args->{'driver'} eq "SQLite" |
|
254
|
0 |
3 |
unless $args->{'host'} |
|
255
|
0 |
3 |
unless $args->{'db'} |
|
269
|
2 |
15 |
if ($dsn_str =~ m[^sqlite:///(.*)$]u) |
|
277
|
1 |
14 |
unless $URI->{'schema'} |
|
280
|
0 |
14 |
unless $URI->{'connect'} |
|
284
|
12 |
2 |
$URI->{'connect'} =~ /:/u ? : |
|
287
|
11 |
3 |
if ($URI->{'UI'} =~ /:/u) { } |
|
297
|
0 |
14 |
unless $URI->{'db'} |
|
299
|
3 |
11 |
if ($URI->{'db'} =~ s/^(.*)\?(.*)$/$1/u) |
|
303
|
4 |
10 |
if ($dsn_str =~ /^(postgres|postgresql):/u) { } |
|
|
3 |
7 |
elsif ($dsn_str =~ /^(mariadb):/u) { } |
|
|
3 |
4 |
elsif ($dsn_str =~ /^(mysql|mysqlx):/u) { } |
|
310
|
10 |
0 |
$URI->{'port'} ? : |
|
325
|
0 |
22 |
unless defined $name and $name =~ /^[a-zA-Z_][a-zA-Z0-9_.]*$/u |
|
332
|
0 |
111 |
if ($_query_tracker) |
|
418
|
2 |
5 |
unless ($skeel) |
|
446
|
2 |
8 |
if (ref $val eq "HASH") |
|
449
|
0 |
2 |
unless $VALID_OPS{uc $op} |
|
457
|
7 |
0 |
if @parts |
|
462
|
0 |
25 |
unless $stmt |
|
470
|
8 |
17 |
@params ? : |
|
474
|
0 |
25 |
if ($DBI::err) |
|
485
|
2 |
2 |
if $extra |
|
488
|
0 |
4 |
if ($type eq 'hash') { } |
|
490
|
0 |
0 |
$p ? : |
|
495
|
4 |
0 |
$p ? : |
|
505
|
7 |
8 |
if @extra |
|
512
|
0 |
15 |
if ($_dbd eq 'MariaDB') { } |
|
|
0 |
15 |
elsif ($_dbd eq 'mysql') { } |
|
|
15 |
0 |
elsif ($_dbd eq 'SQLite') { } |
|
|
0 |
0 |
elsif ($_dbd eq 'Pg') { } |
|
530
|
6 |
1 |
if @extra |
|
541
|
2 |
1 |
if ($time_col) { } |
|
561
|
13 |
0 |
if $args{'time'} |
|
573
|
8 |
0 |
exists $skeel->{$name} ? : |
|
587
|
0 |
34 |
unless length $stmt |
|
590
|
0 |
34 |
unless my $dbh = $db && $db->dbh |
|
593
|
0 |
34 |
unless my $sth = $dbh->prepare_cached($stmt) |
|
600
|
0 |
34 |
unless $sth->execute(@params) |
|
614
|
0 |
47 |
unless $table |
|
616
|
43 |
4 |
unless $_args->{'tn'} |
|
619
|
1 |
3 |
unless $self->schema->tables->{$table} |
|
625
|
0 |
12 |
$_last_error ? : |
|
628
|
0 |
12 |
if ($_args and not $_args->{'DBI'}{'RaiseError'} and not $_args->{'DBI'}{'PrintError'}) |