|  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  |