Branch Coverage

blib/lib/DBIx/Array.pm
Criterion Covered Total %
branch 35 154 22.7


line true false branch
153 5 34 if (@_)
171 0 2 if @_
197 0 5 if exists $self->{'action'}
256 47 0 if ($self->prepare_max_count > 0) { }
262 0 47 unless $sth
284 0 53 if (@_)
288 6 47 unless defined $self->{'prepare_max_count'}
314 0 0 if (@_)
336 0 0 if (@_)
388 2 45 if (ref $_[0] eq 'ARRAY') { }
0 45 elsif (ref $_[0] eq 'HASH') { }
390 0 2 unless $sth->execute(@$bind_aref)
394 0 0 unless $sql =~ /:$key\b/
395 0 0 if (ref $bind_href->{$key} eq 'SCALAR') { }
401 0 0 unless $sth->execute
404 0 45 unless $sth->execute(@bind)
413 0 0 if ($bind_str) { }
458 14 1 wantarray ? :
480 1 1 wantarray ? :
499 0 1 wantarray ? :
565 0 21 unless my $sth = $self->sqlcursor($data{'sql'}, @{$data{'param'};})
572 2 19 if $data{'name'}
574 4 17 wantarray ? :
635 0 6 unless my $sth = $self->sqlcursor($data{'sql'}, @{$data{'param'};})
641 3 3 if $data{'name'}
643 3 3 wantarray ? :
658 0 1 unless my $class = shift()
660 0 1 wantarray ? :
681 2 0 if (defined $sort) { }
683 1 1 $sort < 0 ? :
858 0 0 unless my $class = shift()
860 0 0 wantarray ? :
879 0 0 if length $where
990 0 0 unless my $class = shift()
1028 0 19 unless my $sth = $self->sqlcursor($sql, @_)
1124 0 0 unless my $sql = shift()
1125 0 0 unless my $arrayarray = shift()
1132 0 0 unless (defined $count)
1134 0 0 if (ref $status eq 'ARRAR') { }
0 0 elsif ($status == -1) { }
1163 0 0 unless my $sql = shift()
1164 0 0 unless my $columns = shift()
1165 0 0 unless my $arrayhash = shift()
1188 0 0 unless my $sql = shift()
1189 0 0 unless my $cursor = shift()
1193 0 0 if $row
1194 0 0 unless ($count == $size)
1215 0 0 unless my $sql = shift()
1216 0 0 unless my $arrayarray = shift()
1221 0 0 unless $size == $tupples
1223 0 0 unless (defined $count and $count >= 0)
1249 0 0 unless my $table = shift()
1250 0 0 unless my $columns = shift()
1251 0 0 unless my $arrayarray = shift()
1272 0 0 unless my $table = shift()
1273 0 0 unless my $columns = shift()
1274 0 0 unless my $arrayhash = shift()
1299 0 0 unless my $table = shift()
1300 0 0 unless my $cursor = pop()
1338 0 0 unless my $table = shift()
1339 0 0 unless my $setcolumns = shift()
1340 0 0 unless my $wherecolumns = shift()
1372 0 0 if @_
1373 0 0 unless (defined $self->{'abs'})
1376 0 0 if $error
1410 0 0 unless $self->dbms_name eq 'Oracle'
1411 0 0 if (@_)
1416 0 0 if (defined wantarray) { }
1450 0 0 unless $self->dbms_name eq 'Oracle'
1451 0 0 if (@_)
1455 0 0 if (defined wantarray) { }
1490 0 0 unless $self->dbms_name eq 'Oracle'
1491 0 0 if (@_)
1495 0 0 if (defined wantarray) { }
1530 0 0 unless $self->dbms_name eq 'Oracle'
1531 0 0 if (@_)
1535 0 0 if (defined wantarray) { }