| line |
true |
false |
branch |
|
58
|
3 |
9 |
if ($args->{'Error'}) |
|
64
|
8 |
4 |
if ($args->{'SQLite'}) |
|
65
|
0 |
8 |
unless -e $args->{'SQLite'} |
|
91
|
0 |
12 |
if $args->{'mysql_enable_utf8'} |
|
95
|
11 |
1 |
if $self->args->{'abstract'} |
|
98
|
2 |
10 |
unless ($self->args->{'dsn'} or $self->args->{'db'}) |
|
102
|
0 |
10 |
$self->args->{'dsn'} ? : |
|
110
|
2 |
8 |
if $self->args->{'quote'} |
|
116
|
1 |
9 |
if $self->args->{'trace'} |
|
118
|
1 |
9 |
if $self->args->{'profile'} |
|
134
|
0 |
35 |
unless $dbd |
|
136
|
27 |
113 |
if lc $dbd eq lc $_ |
|
138
|
0 |
35 |
unless $self->dbd |
|
147
|
0 |
6 |
unless $dbi eq "dbi" |
|
156
|
1 |
5 |
unless $db |
|
169
|
6 |
1 |
if $dsn =~ /^dbi/ |
|
179
|
0 |
14 |
unless $args->{'driver'} |
|
183
|
11 |
3 |
if $args->{'driver'} eq "SQLite" |
|
185
|
0 |
3 |
unless $args->{'host'} |
|
186
|
0 |
3 |
unless $args->{'db'} |
|
197
|
0 |
12 |
if ($dsn =~ m[^sqlite:///(.*)$]) |
|
204
|
1 |
11 |
unless $URI->{'schema'} |
|
208
|
0 |
11 |
unless $URI->{'connect'} |
|
210
|
9 |
2 |
$URI->{'connect'} =~ /:/ ? : |
|
213
|
8 |
3 |
if ($URI->{'UI'} =~ /:/) { } |
|
223
|
0 |
11 |
unless $URI->{'db'} |
|
226
|
3 |
8 |
if ($URI->{'db'} =~ s/^(.*)\?(.*)$/$1/) |
|
230
|
3 |
8 |
if ($dsn =~ /^(postgres|postgresql):/) { } |
|
|
2 |
6 |
elsif ($dsn =~ /^(mariadb):/) { } |
|
|
2 |
4 |
elsif ($dsn =~ /^(mysql|mysqlx):/) { } |
|
263
|
0 |
1 |
if $DBI::err |
|
299
|
0 |
1 |
if $DBI::err |
|
311
|
0 |
3 |
if $DBI::err |
|
325
|
0 |
1 |
if $DBI::err |
|
339
|
1 |
1 |
unless $skeel |
|
357
|
4 |
1 |
if (ref $skeel->{$K} eq 'HASH') { } |
|
384
|
0 |
2 |
if $extra |
|
386
|
0 |
2 |
if ($type eq 'hash') { } |
|
388
|
0 |
0 |
if ($self->p) { } |
|
395
|
2 |
0 |
if ($self->p) { } |
|
404
|
2 |
0 |
if $DBI::err |
|
412
|
1 |
0 |
if ($time) { } |
|
424
|
2 |
0 |
if scalar @_ > 0 |
|
453
|
6 |
0 |
if scalar @_ > 0 |
|
469
|
0 |
6 |
if ($self->dbd eq 'MariaDB') { } |
|
|
0 |
6 |
elsif ($self->dbd eq 'mysql') { } |
|
|
6 |
0 |
elsif ($self->dbd eq 'SQLite') { } |
|
|
0 |
0 |
elsif ($self->dbd eq 'Pg') { } |
|
503
|
8 |
0 |
if $args{'time'} |
|
546
|
0 |
8 |
if $DBI::err |
|
555
|
0 |
17 |
unless $table |
|
557
|
0 |
17 |
if ($self->args->{'TableName'}) |
|
561
|
16 |
1 |
unless $table =~ /\W/ |
|
570
|
8 |
4 |
unless ($self->args->{'DBI'}{'RaiseError'}) |
|
571
|
0 |
8 |
unless $self->args->{'DBI'}{'PrintError'} |
|
576
|
2 |
10 |
if $self->last_error |