Branch Coverage

blib/lib/DBIx/PDlib.pm

Criterion	Covered	Total	%
branch	0	118	0.0

line	true	false	branch
30	0	0	if (not defined $config) { }
	0	0	elsif (ref $config eq 'HASH') { }
	0	0	elsif (UNIVERSAL::isa($config, 'DBI::db')) { }
	0	0	elsif (ref $config) { }
34	0	0	if ($$config{'dbh'}) { }
40	0	0	if (not defined $$config{'user'} and $$config{'password'})
43	0	0	if (exists $$config{'dsn'}) { }
61	0	0	if ($data_source) { }
	0	0	elsif (not $dbh) { }
68	0	0	unless ($dbh)
72	0	0	if (ref $config eq 'HASH' and not $$config{'dbh'}) { }
108	0	0	if ($driver eq 'Oracle')
110	0	0	unless -d $ENV{'ORACLE_HOME'}
115	0	0	if /^user$/
116	0	0	if /^password$/
117	0	0	if /^driver$/
121	0	0	if ($drivers{$driver}) { }
137	0	0	unless ref(my $self = shift())
145	0	0	defined wantarray ? :
157	0	0	unless ref(my $self = shift())
165	0	0	if $from
166	0	0	if $where
167	0	0	if $other
173	0	0	if $handle->execute
191	0	0	unless ref(my $self = shift())
199	0	0	if $from
200	0	0	if $where
201	0	0	if $other
205	0	0	unless ($handle->execute)
226	0	0	unless ref(my $self = shift())
234	0	0	if $from
235	0	0	if $where
236	0	0	if $other
240	0	0	unless ($handle->execute)
251	0	0	wantarray ? :
266	0	0	unless ref(my $self = shift())
274	0	0	if $from
275	0	0	if $where
276	0	0	if $other
279	0	0	if ($alldata) { }
300	0	0	unless ref(my $self = shift())
307	0	0	unless $table and ref $fields eq 'ARRAY' and ref $values eq 'ARRAY' and @$fields == @$values
316	0	0	if ($handle->execute(@$values)) { }
320	0	0	defined wantarray ? :
340	0	0	unless ref(my $self = shift())
351	0	0	unless $table and ref $fields eq 'ARRAY' and ref $values eq 'ARRAY' and @$fields == @$values and $where
362	0	0	if ($handle->execute(@$values)) { }
366	0	0	defined wantarray ? :
382	0	0	unless ref(my $self = shift())
389	0	0	if ($table and $where) { }
393	0	0	defined wantarray ? :
419	0	0	unless ref(my $self = shift())
432	0	0	wantarray ? :
437	0	0	unless ref(my $self = shift())
443	0	0	unless ref(my $self = shift())
445	0	0	if $rc
450	0	0	unless ref(my $self = shift())
452	0	0	unless ($self->connected)
454	0	0	if ($$self{'_dbh_args'}{'data_source'})