Condition Coverage

blib/lib/DBIx/Recordset.pm
Criterion Covered Total %
condition 0 452 0.0


and 3 conditions

line !l l&&!r l&&r condition
160 0 0 0 ref $data_source and eval { do { $data_source->isa('DBI::db') } }
224 0 0 0 $hdl and $cmd = $$self{'*DoOnConnect'}
531 0 0 0 $dbg and $$value[2] & 1
533 0 0 0 $dbg and $$value[2] & 2
536 0 0 0 $dbg and $$value[1] || $$ofunc{$name}
549 0 0 0 $dbg and $$value[2] & 1
551 0 0 0 $dbg and $$value[2] & 2
554 0 0 0 $dbg and $$value[1] || $$ofunc{$key}
572 0 0 0 defined $v and not defined $$v{'!LinkedField'}
573 0 0 0 defined $v and not defined $$v{'!MainField'}
645 0 0 0 defined ${$objname;} and $${$objname;}{'*Debug'} > 1 || $DBIx::Recordset::Debug > 1
648 0 0 0 defined ${$objname;} and ref ${$objname;}
0 0 0 defined ${$objname;} and ref ${$objname;} and UNIVERSAL::isa(${$objname;}, 'DBIx::Recordset')
664 0 0 0 defined ${$objname;} and ref ${$objname;}
687 0 0 0 defined $$self{'*DBHdl'} and $$self{'*MainHdl'}
722 0 0 0 not $orgerr and $@
723 0 0 0 $orgerr and $@
784 0 0 0 $$self{'*Debug'} > 2 and ref $value eq 'HASH'
1370 0 0 0 defined $$bind_values[$i] and defined $$bind_types[$i]
0 0 0 defined $$bind_values[$i] and defined $$bind_types[$i] and $$Numeric{$$bind_types[$i]}
1375 0 0 0 defined $bt && $bt <= &DBI::SQL_CHAR()
1407 0 0 0 $ofunc and $names
1489 0 0 0 defined $$self{'*LastRecordFetch'} and $fetch == $$self{'*LastRecordFetch'}
0 0 0 defined $$self{'*LastRecordFetch'} and $fetch == $$self{'*LastRecordFetch'} and $$self{'*LastRecord'}
1502 0 0 0 $row <= $fetch and not $$self{'*EOD'}
0 0 0 $row <= $fetch and not $$self{'*EOD'} and defined $sth
1507 0 0 0 defined $max and $row > $max
1530 0 0 0 defined $max and $row > $max
1546 0 0 0 defined $max and $row > $max
1552 0 0 0 $row == $fetch and not $$self{'*EOD'}
1633 0 0 0 $row == $fetch + 1 and not $$self{'*EOD'}
1647 0 0 0 defined $max and $orgrow > $max
1818 0 0 0 defined $fields and not $fields =~ /^\s*\*\s*$/
1871 0 0 0 not $$link{'!LinkedBy'} and $nf
0 0 0 $debug > 2 and not $$link{'!LinkedBy'}
2009 0 0 0 defined($primkey = $$self{'*PrimKey'}) and defined $$where{$primkey}
0 0 0 defined($primkey = $$self{'*PrimKey'}) and defined $$where{$primkey} and !defined($$where{"*$primkey"}) || $$where{"*$primkey"} eq '='
0 0 0 defined($primkey = $$self{'*PrimKey'}) and defined $$where{$primkey} and !defined($$where{"*$primkey"}) || $$where{"*$primkey"} eq '=' and not ref $$where{$primkey}
2037 0 0 0 $linkname and not $primkey =~ /\./
2085 0 0 0 $ignore > 1 and defined $val
0 0 0 $ignore > 1 and defined $val and $val eq ''
2096 0 0 0 $ignore && !defined($val)
0 0 0 $type =~ /^(\w|\\|\+|\'|\#|\s)$/ and not $ignore && !defined($val)
2120 0 0 0 $linkname and not $field =~ /\./
2183 0 0 0 not defined $$Quote{$lkey} and $type ne '\\'
2193 0 0 0 $linkname and $type ne '\\'
0 0 0 $linkname and $type ne '\\' and not $key =~ /\./
2247 0 0 0 $hasIn and @mvals > 1
0 0 0 $hasIn and @mvals > 1 and not @multop
0 0 0 $hasIn and @mvals > 1 and not @multop and $op eq '='
0 0 0 $hasIn and @mvals > 1 and not @multop and $op eq '=' and not $$where{'$valueconj'}
0 0 0 $hasIn and @mvals > 1 and not @multop and $op eq '=' and not $$where{'$valueconj'} and $type ne '+'
2287 0 0 0 $Debug > 3 and $lexpr ne $expr
2296 0 0 0 $tabrel and not $sub
2329 0 0 0 ref $rowdata eq 'HASH' and eval { do { tied(%$rowdata)->isa('DBIx::Recordset::Row') } }
2485 0 0 0 @qvals == 1 and $insertserial
0 0 0 @qvals == 1 and $insertserial and exists $$data{$insertserial}
2582 0 0 0 defined $val and not $where
0 0 0 ref $where eq 'HASH' and $val eq $$where{$primkey}
2879 0 0 0 defined $start and $start < 0
2880 0 0 0 defined $max and $max < 1
2897 0 0 0 defined $max and not $$fdat{'$last'}
2914 0 0 0 $rc and $$fdat{'$last'}
2976 0 0 0 defined $$fdat{'=update'} and $rc eq '-'
2977 0 0 0 defined $$fdat{'=insert'} and $rc eq '-'
2980 0 0 0 defined $rc and $$self{'*LastSerial'}
2987 0 0 0 defined $$fdat{'=delete'} and $rc eq '-'
2988 0 0 0 not defined $$fdat{'=empty'} and defined $rc
2989 0 0 0 defined $$fdat{'=empty'} and $rc eq '-'
3093 0 0 0 defined $HTML::Embperl::escmode and $HTML::Embperl::escmode & 1
0 0 0 defined $Embperl::escmode and $Embperl::escmode & 1
3106 0 0 0 $k ne '$start' and $k ne '$max'
0 0 0 $k ne '$start' and $k ne '$max' and $k ne '$prev'
0 0 0 $k ne '$start' and $k ne '$max' and $k ne '$prev' and $k ne '$next'
0 0 0 $k ne '$start' and $k ne '$max' and $k ne '$prev' and $k ne '$next' and $k ne '$goto'
0 0 0 $k ne '$start' and $k ne '$max' and $k ne '$prev' and $k ne '$next' and $k ne '$goto' and $k ne '$gotorow'
0 0 0 $k ne '$start' and $k ne '$max' and $k ne '$prev' and $k ne '$next' and $k ne '$goto' and $k ne '$gotorow' and $k ne '$first'
0 0 0 $k ne '$start' and $k ne '$max' and $k ne '$prev' and $k ne '$next' and $k ne '$goto' and $k ne '$gotorow' and $k ne '$first' and $k ne '$last'
3114 0 0 0 $start > 0 and $textfirst
3118 0 0 0 $start > 0 and $textprev
3127 0 0 0 $more > 0 and $textnext
3131 0 0 0 $more > 0 and $textlast
3322 0 0 0 not $orgerr and $@
3323 0 0 0 $orgerr and $@
3356 0 0 0 $merge and exists $keyhash{$pk}
3485 0 0 0 $merge and $rs->MoreRecords
3685 0 0 0 not $orgerr and $@
3686 0 0 0 $orgerr and $@
3828 0 0 0 $pk and exists $$data{$pk}
3945 0 0 0 $rs and $$rs{'*Debug'} > 3
4025 0 0 0 $pk and not exists $$dat{$pk}
4039 0 0 0 $rc != 1 and $rc ne ''
4093 0 0 0 not $orgerr and $@
0 0 0 $orgerr and $@

or 2 conditions

line l !l condition
796 0 0 $value ||= {}
1326 0 0 $order ||= ''
1327 0 0 $expr ||= ''
1328 0 0 $group ||= ''
1329 0 0 $append ||= ''
1333 0 0 $fields ||= '*'
1347 0 0 $bind_values || []
1348 0 0 $bind_types || []
2034 0 0 $$where{"*$primkey"} || '='
2066 0 0 $$where{'$operator'} || '='
2069 0 0 $$where{'$valuesplit'} || "\t"
2084 0 0 substr($key, 0, 1) || ' '
2143 0 0 $$where{'$compconj'} || ' or '
2271 0 0 $$where{'$valueconj'} || ' or '
2284 0 0 $$where{'$conj'} || ' and '
2876 0 0 $$fdat{'$start'} || 0
2919 0 0 $max || 1
3770 0 0 $$rs{'*OutputFuncArray'} || []
4064 0 0 eval { do { ref $$lrs } } || ''

or 3 conditions

line l !l&&r !l&&!r condition
381 0 0 0 $$self{$sn} ||= $default
462 0 0 0 $$self{'*Sequence'} ||= "$$self{'*Table'}_seq"
525 0 0 0 $$value[0] or $$ifunc{$name}
535 0 0 0 $$value[1] or $$ofunc{$name}
536 0 0 0 $$value[1] || $$ofunc{$name}
543 0 0 0 $$value[0] or $$ifunc{$key}
553 0 0 0 $$value[1] or $$ofunc{$key}
554 0 0 0 $$value[1] || $$ofunc{$key}
645 0 0 0 $${$objname;}{'*Debug'} > 1 || $DBIx::Recordset::Debug > 1
1076 0 0 0 $table ||= $$self{'*MainTable'}
1266 0 0 0 $where or $$self{'*WriteMode'} & 8
1334 0 0 0 $$self{'*TabJoin'} || $$self{'*Table'}
1571 0 0 0 $$self{'*NameField'} || $self->TableAttr('!NameField')
1576 0 0 0 $$dat{uc $nf} || $$dat{$nf}
1605 0 0 0 not defined $max or $fetch <= $max
1647 0 0 0 defined $max and $orgrow > $max or not $arr
1691 0 0 0 defined $rec or not $new
1732 0 0 0 defined $rec or not $new
1768 0 0 0 defined $rec or not $new
1822 0 0 0 /\./ || !$$tab4f{$_}
1830 0 0 0 $$self{'*NameField'} || $self->TableAttr('!NameField')
1867 0 0 0 $$link{'!DataSource'} or $$link{'!Table'} eq $$self{'!Table'}
1869 0 0 0 $$link{'!NameField'} || $self->TableAttr('!NameField', undef, $$link{'!Table'})
2009 0 0 0 !defined($$where{"*$primkey"}) || $$where{"*$primkey"} eq '='
2118 0 0 0 $$where{"*$field"} || $oper
2143 0 0 0 $fconj ||= $$where{'$compconj'} || ' or '
2159 0 0 0 $type eq '\\' or $type eq '#'
0 0 0 $type eq '\\' or $type eq '#' or $type eq q[']
2191 0 0 0 $$where{"*$key"} || $oper
2271 0 0 0 $vconj ||= $$where{'$valueconj'} || ' or '
2284 0 0 0 $econj ||= $$where{'$conj'} || ' and '
2388 0 0 0 $err ||= $@
2670 0 0 0 not $rc or $DBI::rows <= 0
2740 0 0 0 $expr or $$self{'*WriteMode'} & 8
2838 0 0 0 $$self{'*Fields'} || $fields
0 0 0 $$self{'*Order'} || $order
2879 0 0 0 defined $$fdat{'$first'} or defined $start and $start < 0
3093 0 0 0 defined $HTML::Embperl::escmode and $HTML::Embperl::escmode & 1 or defined $Embperl::escmode and $Embperl::escmode & 1
3478 0 0 0 not defined $$rs{'*LastKey'} or $fetch ne $$rs{'*LastKey'}
3804 0 0 0 $#$r > 0 or $$r[0] != $i
3857 0 0 0 $$dat{$key} ne $value or defined $$dat{$key} != defined $value
3878 0 0 0 $$rs{'*NameField'} || $rs->TableAttr('!NameField')
3881 0 0 0 $$self{'*data'}{uc $nf} || $$self{'*data'}{$nf}
4088 0 0 0 $DBIx::Recordset::Debug > 2 or $$self{'*Recordset'}{'*Debug'} > 3