Condition Coverage

lib/DBIx/Oro.pm
Criterion Covered Total %
condition 90 194 46.3


and 2 conditions

line l !l condition
1357 0 0 carp($DBI::errstr) and return
1710 0 0 carp("Unknown Oro value $key $op $val") and next

and 3 conditions

line !l l&&!r l&&r condition
121 20 0 6 @_ == 2 and ref $_[1]
20 0 6 @_ == 2 and ref $_[1] and ref $_[1] eq 'CODE'
237 510 0 0 defined $self->{'tid'} and $self->{'tid'} != 'threads'->tid
322 0 0 0 ref $_[0] eq 'HASH' and ref $_[1]
346 0 0 0 $prop and my $oc = $prop->{'-on_conflict'}
472 11 76 38 $_[0] and ref $_[0] eq 'ARRAY'
492 21 0 104 $_[0] and ref $_[0] eq 'HASH'
496 0 0 104 $_[0] and ref $_[0] eq 'HASH'
521 62 63 0 $prep and $prep->{'cache'}
565 123 0 0 $_[0] and ref $_[0]
123 0 0 $_[0] and ref $_[0] and ref $_[0] eq 'CODE'
575 0 0 0 $chi and $sth
594 0 0 0 $rv and $rv eq '-1'
601 0 0 0 $sth and $chi
0 0 0 $sth and $chi and $result
606 0 0 0 not $sth and $chi
618 123 0 0 $chi and $result
647 0 20 1 ref $_[-1] and ref $_[-1] eq 'CODE'
650 0 0 21 ref $_[-1] and ref $_[-1] eq 'HASH'
670 0 0 21 $sort_by and $sort_by =~ s/^\s*($KEY_REGEX)\s*$/$1/
806 18 0 2 ref $self->{'table'} and @fields
839 19 0 1 $cb and @$entry
865 0 0 29 $param[-1] and ref $param[-1]
968 0 0 9 $rv and $rv > 0
992 22 29 1 $_[0] and ref $_[0] eq 'ARRAY'
996 22 0 30 $_[0] and ref $_[0] eq 'HASH'
1009 52 0 0 $prep and $prep->{'cache'}
1039 49 0 0 $chi and $result
1113 126 0 0 not $rv and $dbh->err
1129 0 0 69 $_[0] and ref $_[0] eq 'CODE'
1210 0 0 3 ref $cb and ref $cb eq 'CODE'
1240 0 0 0 ref $_[-1] and ref $_[-1] eq 'CODE'
1266 0 0 0 $cb and $sql
1516 0 0 22 ref $join[0] and ref $join[0] eq 'HASH'
1575 0 0 26 ref $join[0] and ref $join[0] eq 'HASH'
1656 6 0 1 ref $value->[0] and ref $value->[0] eq 'SCALAR'
1686 83 0 3 ref $val and ref $val eq 'ARRAY'
1776 35 1 2 $key eq 'group' and ref $value
1777 1 0 1 ref $value->[-1] and ref $value->[-1] eq 'HASH'
1794 21 0 17 $1 && $1 eq '-'
1875 0 12 0 do { ref $_ eq 'ARRAY' } && do { my($sub, $alias) = @$_; my($sql, $inner_sub) = &$sub($table); ($sql, $inner_sub, my @param) = &$sql($table) if ref $sql; $treatment{$alias} = [$inner_sub, @param] if $inner_sub; push @fields, "${sql}:$alias" }
2009 44 0 98 $_[0]{$_[1]} and not ref $_[0]{$_[1]}

or 2 conditions

line l !l condition
142 26 1 $param{'driver'} //= 'SQLite'
285 12 0 $last_sql || ''
483 52 73 $fields->[0] ||= '*'
658 2 19 _check_param($param, 'startIndex', 'num') // 0
660 3 18 _check_param($param, 'startPage', 'num') // 1
672 12 9 $param->{'sortOrder'} //= 'ascending'
691 2 0 $pagination{'-offset'} //= 0
851 20 0 $entry || []
1029 30 22 $values || []
1035 43 6 $sth->fetchrow_arrayref->[0] || 0
1348 0 30 $self->{'user'} // undef
1592 14 14 $marker{$_} //= []
1736 0 0 $val //= '?'
1848 0 0 $value->{'key'} // ''

or 3 conditions

line l !l&&r !l&&!r condition
238 0 0 0 $self->_connect || croak($c)
243 0 0 0 $self->_connect || croak($c)
251 3 0 0 $self->_connect || croak($c)
335 0 0 0 ref $key or $key =~ /$KEY_REGEX/
454 3 5 16 !$rv || $rv eq '0E0'
492 104 0 21 $_[0] and ref $_[0] eq 'HASH' or @$join_pairs
685 14 7 0 $count || $ITEMS_PER_PAGE
913 5 0 0 @$pairs or $prep
923 0 4 7 !$rv || $rv eq '0E0'
1144 53 12 2 not $rv or $rv ne '-1'
1192 0 1 1 not $rv or $rv ne '-1'
1212 2 1 0 shift() || '_cb_' . $self->{'_connect_cb'}++