Branch Coverage

blib/lib/App/Sqitch/Role/DBIEngine.pm
Criterion Covered Total %
branch 18 112 16.0


line true false branch
96 1 1 if $self->_no_table_error
113 1 1 if $self->_no_table_error and not $self->initialized
131 0 0 $with_hash ? :
168 1 2 if $self->_no_table_error and not $self->initialized
169 1 1 if $self->_no_column_error
171 1 0 unless my $state = &try(sub {
173 0 0 unless (ref $state->{'tags'})
174 0 0 $state->{'tags'} ? :
201 0 0 unless my $row = $sth->fetchrow_hashref
227 0 0 unless my $row = $sth->fetchrow_hashref
239 0 0 if (my $d = delete $p{'direction'})
240 0 0 $d =~ /^DESC/i ? :
0 0 $d =~ /^ASC/i ? :
260 0 0 if (my $e = delete $p{'event'})
267 0 0 @wheres ? :
273 0 0 if (exists $p{'limit'} or exists $p{'offset'})
275 0 0 if (@{$exprs;})
277 0 0 unless $values
281 0 0 if %p
308 0 0 unless my $row = $sth->fetchrow_hashref
325 3 3 if ($lim)
329 2 4 if ($off)
330 1 1 if (not $lim and $lim = $self->_limit_default)
360 0 0 if (@{$res;}) { }
363 0 0 if (defined $uri and not defined $reg_uri) { }
0 0 elsif (not defined $uri and defined $reg_uri) { }
0 0 elsif (defined $uri and defined $reg_uri) { }
376 0 0 if $uri ne $reg_uri
387 0 0 if (defined $uri)
399 0 0 if @{$res;}
526 0 0 if $self->_unique_error
533 0 0 if (my(@deps) = $change->dependencies)
551 0 0 if (my(@tags) = $change->tags)
673 0 0 unless my(@tags) = $change->tags
733 0 0 unless $dbh->selectcol_arrayref("SELECT tag FROM tags WHERE change_id = ?", undef, $cid)
776 0 0 unless (ref $_->{'tags'})
777 0 0 $_->{'tags'} ? :
799 0 0 unless (ref $_->{'tags'})
800 0 0 $_->{'tags'} ? :
832 0 0 unless (ref $change->{'tags'})
833 0 0 $change->{'tags'} ? :
840 0 0 $offset > 0 ? :
848 0 0 unless $offset
867 0 0 unless $offset
890 0 0 unless (ref $change->{'tags'})
891 0 0 $change->{'tags'} ? :
912 0 1 if (my $cid = $p{'change_id'})
922 0 1 if (my $change = $p{'change'})
923 0 0 if (my $tag = $p{'tag'})
925 0 0 if $tag eq "ROOT"
928 0 0 if $tag eq "HEAD"
931 0 0 $self->_can_limit ? :
955 0 0 if $p{'first'}
959 0 1 if (my $tag = $p{'tag'})
961 0 0 if $tag eq "HEAD"
964 0 0 if $tag eq "ROOT"