line |
true |
false |
branch |
31
|
0 |
0 |
unless ($type) |
32
|
0 |
0 |
defined $DBH ? : |
35
|
0 |
0 |
if (ref $type eq 'HASH') |
44
|
0 |
0 |
$$type{'attr'} ? : |
47
|
0 |
0 |
if ($$cfg{'dsn'} =~ /\?$/) |
48
|
0 |
0 |
unless exists $$type{'database'} |
54
|
0 |
0 |
if ($type =~ /^Pg:(.*)/ and not $1 =~ /dbname=/) |
57
|
0 |
0 |
unless ($DBH = 'DBI'->connect("DBI:$type", @args)) |
68
|
0 |
0 |
unless ($rc = $sth->execute(@args)) |
76
|
0 |
0 |
unless defined $DBH |
87
|
0 |
0 |
if (ref $args[0] eq 'HASH') |
90
|
0 |
0 |
defined $args[1] ? : |
97
|
0 |
0 |
unless ($rc = $sth->execute(@args)) |
113
|
0 |
0 |
unless defined wantarray |
116
|
0 |
0 |
unless ($sth->execute(@args)) |
121
|
0 |
0 |
if (wantarray) |
124
|
0 |
0 |
unless ($columns =~ /^\*/ or $columns =~ /,/) |
133
|
0 |
0 |
/SCALAR/ ? : |
|
0 |
0 |
/ARRAY/ ? : |
|
0 |
0 |
/HASH/ ? : |
138
|
0 |
0 |
unless ($res or $finish) |
153
|
0 |
0 |
unless defined $DBH |
155
|
0 |
0 |
unless ($DBH->do(@_)) |
163
|
0 |
0 |
if (ref $args[0] eq 'HASH') |
166
|
0 |
0 |
unless ($str =~ /\bset\b\s*$/i) |
169
|
0 |
0 |
defined $args[1] ? : |
176
|
0 |
0 |
unless ($rc = $sth->execute(@args)) |
185
|
0 |
0 |
ref $_[0] eq 'DBI::db' ? : |
192
|
0 |
0 |
unless open my $INI, $parm{'-file'} |
194
|
0 |
0 |
if /^\s*$|(?:[\#\;])/ |
195
|
0 |
0 |
if (/^\s*\[$parm{'-label'}\]/ .. /^\s*\[(?!$parm{'-label'})/ || eof $INI) |
198
|
0 |
0 |
if $1 |
209
|
0 |
0 |
unless keys %{$self;} |
215
|
0 |
0 |
unless defined $DBH |
218
|
0 |
0 |
if ($function eq 'Insert') |
220
|
0 |
0 |
unless ($str =~ s/\?\?L|\(\s*\?\?L\s*\)/($list)/) |
221
|
0 |
0 |
if ($str =~ /\bvalues\b/i) { } |
|
0 |
0 |
elsif ($args) { } |
222
|
0 |
0 |
unless $str =~ /\)\s*$/ |
231
|
0 |
0 |
if ($subct > $args) { } |
|
0 |
0 |
elsif ($subct < $args) { } |
240
|
0 |
0 |
if ($sth = $$sth_cache{$DBH}{$str}) { } |
242
|
0 |
0 |
unless ($$sth_cacheA{$DBH}[-1] eq $str) |
248
|
0 |
0 |
if (scalar @{$$sth_cacheA{$DBH};} >= $EZDBI::MAX_STH - 1) |
254
|
0 |
0 |
unless $sth |