Branch Coverage

blib/lib/EZDBI.pm
Criterion Covered Total %
branch 0 90 0.0


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