Branch Coverage

blib/lib/DBIx/LazyMethod.pm
Criterion Covered Total %
branch 5 112 4.4


line true false branch
44 0 1 unless (ref $methods_ref eq 'HASH')
48 0 1 unless (keys %$methods_ref > 0)
57 0 1 if (grep {$meth eq $_;} ('new', 'AUTOLOAD', 'DESTROY', '_connect', '_disconnect', '_error'))
61 0 0 unless (defined ${%$methods_ref;}{$meth}{'sql'})
64 0 0 unless (defined ${%$methods_ref;}{$meth}{'args'})
67 0 0 unless (defined ${%$methods_ref;}{$meth}{'ret'})
70 0 0 unless (ref ${%$methods_ref;}{$meth}{'args'} eq 'ARRAY')
79 0 0 unless ($arg_count == scalar @placeholders)
84 0 0 if (${%$methods_ref;}{$meth}{'ret'} eq 6)
85 0 0 unless (grep {lc $dbd_name eq $_;} 'mysql', 'pg')
90 0 0 unless (grep {${%$methods_ref;}{$meth}{'ret'} eq $_;} 1..6)
95 0 0 if (${%$methods_ref;}{$meth}{'ret'} != 5 and defined ${%$methods_ref;}{$meth}{'noprepare'})
100 0 0 if (defined ${%$methods_ref;}{$meth}{'noquote'} and not defined ${%$methods_ref;}{$meth}{'noprepare'})
106 0 0 unless ($good_methods > 0)
132 0 0 if ($DBIx::LazyMethod::AUTOLOAD =~ /.*::_sth_([\w_]+)/) { }
0 0 elsif (defined $$self{'methods'}{$meth}) { }
135 0 0 if defined $$self{'_sth_' . $1}
139 0 0 unless (exists $$self{'_dbh'} and ref $$self{'_dbh'} eq 'DBI::db')
142 0 0 unless exists $$self{'methods'}{$1}
149 0 0 if (defined $$self{'methods'}{$1}{'noprepare'}) { }
153 0 0 unless $$self{'_sth_' . $1} = $$self{'_dbh'}->prepare($$self{'methods'}{$1}{'sql'})
176 0 0 unless (defined $args{$_})
186 0 0 unless $$self{'_dbh'}{'Driver'}{'Name'} eq 'mysql'
189 0 0 unless defined $$self{'methods'}{$meth}{'noprepare'}
191 0 0 if ($_ =~ /^limit_/)
202 0 0 if (defined $$self{'methods'}{$meth}{'noprepare'}) { }
205 0 0 if (defined $$self{'methods'}{$meth}{'noquote'}) { }
209 0 0 unless $rv = $$self{'_dbh'}->do($sql)
213 0 0 unless $rv = $$self{'_dbh'}->do($$self{'methods'}{$meth}{'sql'}, undef, @bind_values)
217 0 0 unless $rv = $sth->execute(@bind_values)
219 0 0 if not $rv and 0
220 0 0 unless ($rv)
225 0 0 if ($$self{'methods'}{$meth}{'ret'} == 1) { }
0 0 elsif ($$self{'methods'}{$meth}{'ret'} == 2) { }
0 0 elsif ($$self{'methods'}{$meth}{'ret'} == 3) { }
0 0 elsif ($$self{'methods'}{$meth}{'ret'} == 4) { }
0 0 elsif ($$self{'methods'}{$meth}{'ret'} == 6) { }
0 0 elsif ($$self{'methods'}{$meth}{'ret'} == 5) { }
231 0 0 if (not defined $ret or ref $ret eq 'ARRAY') { }
238 0 0 if (not defined $ret or ref $ret eq 'HASH') { }
252 0 0 unless ($cur_dbd)
256 0 0 if (lc $cur_dbd eq 'mysql') { }
0 0 elsif (lc $cur_dbd eq 'pg') { }
258 0 0 if (defined $$sth{'mysql_insertid'}) { }
266 0 0 if (defined $$sth{'pg_oid_status'}) { }
288 0 1 if (defined $$self{'methods'})
292 0 0 if defined $$self{'methods'}{$_}{'noprepare'}
294 0 0 if (defined $$self{'_sth_' . $_})
302 0 1 if (defined $$self{'_dbh'})
316 0 0 if (defined $attr)
317 0 0 unless (ref $attr eq 'HASH')
321 0 0 unless my $dbh = 'DBI'->connect($data_source, $user, $auth, $attr)
329 0 0 unless (defined $dbh)
331 0 0 if (not $dbh->disconnect) { }
341 0 0 if ($data eq 0) { }
354 0 0 defined $$self{'errorstate'} ? :