Branch Coverage

blib/lib/DBIx/DataModel/Schema.pm
Criterion Covered Total %
branch 56 84 66.6


line true false branch
48 0 17 if $class->metadm->{'singleton'}
81 0 86 if ref $class
91 16 807 if (not $metadm->{'singleton'}) { }
0 807 elsif (@_) { }
93 0 16 if exists $metadm->{'singleton'}
114 31 300 unless ref $self
117 26 305 if (@_ > 1)
120 3 23 if &does($dbh, "ARRAY") and not keys %dbh_options
125 0 3 unless not $self->{'dbh'} or $self->{'dbh'}[0]{'AutoCommit'}
127 24 2 if ($dbh) { }
129 0 24 unless $dbh->isa("DBI::db")
134 0 24 unless $dbh->{'RaiseError'}
137 24 0 unless (exists $dbh_options{'returning_through'})
139 0 24 if (/^Oracle/)
140 0 24 if (/^Pg/)
154 58 273 wantarray ? :
167 0 1459 unless ref $self
169 62 1397 if (@_)
179 0 0 unless ref $self
191 1 2 unless ref $self
193 1 2 unless @components
206 3 0 unless ref $self
209 0 3 unless $self->{'transaction_dbhs'}
216 25 0 unless ref $self
218 0 25 unless &does($coderef, "CODE")
226 2 23 if @new_dbh
231 0 25 unless my $dbh = $self->dbh
235 12 5 defined wantarray ? :
8 17 wantarray ? :
250 15 10 if ($dbh->{'AutoCommit'})
259 12 13 if (@$transaction_dbhs) { }
266 0 13 if ($dbh->isa("DBIx::RetryOverDisconnects::db"))
277 0 13 unless $dbh->{'AutoCommit'}
292 0 5 if ($dbh->isa("DBIx::RetryOverDisconnects::db") and $dbh->is_trans_disconnect)
296 0 0 if $retry < $n_retries
325 2 30 wantarray ? :
339 90 11 unless ref $self
341 2 98 unless my $meta_source = $self->metadm->$remote(@_)
355 0 206 if ($debug)
356 0 0 if (ref $debug and $debug->can('debug')) { }
387 3 0 if (exists $previous_state->{'dbh'})
409 0 4 @rollback_errs ? :