Branch Coverage

blib/lib/DBIx/Recordset.pm
Criterion Covered Total %
branch 0 1022 0.0


line true false branch
142 0 0 if ($table =~ /^\"/) { }
148 0 0 $DBIx::Recordset::PreserveCase ? :
151 0 0 $DBIx::Recordset::PreserveCase ? :
154 0 0 unless ($data_source =~ /^dbi\:/i)
157 0 0 if exists $DBIx::Recordset::Metadata{$metakey}
160 0 0 if (ref $data_source eq 'DBIx::Recordset') { }
0 0 elsif (ref $data_source eq 'DBIx::Database') { }
0 0 elsif (ref $data_source and eval { do { $data_source->isa('DBI::db') } }) { }
203 0 0 if (not defined $$self{'*DBHdl'}) { }
205 0 0 unless $hdl = $$self{'*DBHdl'} = 'DBI'->connect($$self{'*DataSource'}, $$self{'*Username'}, $password, $$self{'*DBIAttr'})
212 0 0 if ($$self{'*Driver'} eq 'Proxy')
216 0 0 if $$self{'*Debug'} > 1
221 0 0 if $$self{'*Debug'} > 1
224 0 0 if ($hdl and $cmd = $$self{'*DoOnConnect'})
235 0 0 if $$self{'*Debug'} > 1
246 0 0 unless $meta
280 0 0 if (ref $arg eq 'HASH') { }
0 0 elsif (ref $arg eq 'DBIx::Recordset') { }
282 0 0 unless $rs = 'DBIx::Recordset'->SetupObject($arg)
303 0 0 if $size == 0
337 0 0 unless defined $$self{'*Placeholders'}
338 0 0 if $$self{'*Placeholders'} < 10
340 0 0 if ($$self{'*Debug'} > 0)
342 0 0 unless defined $rc
345 0 0 unless $$self{'*Placeholders'}
346 0 0 if $$self{'*Debug'} > 2
349 0 0 defined $rc ? :
371 0 0 if (exists $$param{$pn}) { }
0 0 elsif (defined($attr = $self->TableAttr($pn))) { }
383 0 0 defined $$self{$sn} ? :
0 0 if $$self{'*Debug'} > 2
432 0 0 unless my $self = New($class, $$parm{'!DataSource'}, $$parm{'!Table'}, $$parm{'!Username'}, $$parm{'!Password'}, $$parm{'!DBIAttr'})
435 0 0 if defined &HTML::Embperl::RegisterCleanup
459 0 0 if ($$self{'*Serial'})
461 0 0 unless $$parm{'!PrimKey'}
464 0 0 if ($$self{'*SeqClass'}) { }
469 0 0 unless (defined &{"${class}::new";})
511 0 0 if ($conversion)
516 0 0 if ($key =~ /^-?\d*$/) { }
522 0 0 if ($_ == $key)
525 0 0 if ($$value[0] or $$ifunc{$name})
529 0 0 if $dbg
530 0 0 if $$value[2] & 1
531 0 0 if $dbg and $$value[2] & 1
532 0 0 if $$value[2] & 2
533 0 0 if $dbg and $$value[2] & 2
535 0 0 if $$value[1] or $$ofunc{$name}
536 0 0 if $dbg and $$value[1] || $$ofunc{$name}
543 0 0 if ($$value[0] or $$ifunc{$key})
547 0 0 if $dbg
548 0 0 if $$value[2] & 1
549 0 0 if $dbg and $$value[2] & 1
550 0 0 if $$value[2] & 2
551 0 0 if $dbg and $$value[2] & 2
553 0 0 if $$value[1] or $$ofunc{$key}
554 0 0 if $dbg and $$value[1] || $$ofunc{$key}
560 0 0 if keys %$ofunc == 0
561 0 0 if $#$irfunc_insert == -1
562 0 0 if $#$irfunc_update == -1
566 0 0 if (defined $links)
572 0 0 if defined $v and not defined $$v{'!LinkedField'}
573 0 0 if defined $v and not defined $$v{'!MainField'}
578 0 0 if ($$self{'*LinkName'})
595 0 0 unless $DBIx::Recordset::self = SetupObject($class, $parm)
598 0 0 if ($$parm{'!HashAsRowKey'}) { }
639 0 0 unless ($objname =~ /\:\:/)
645 0 0 if defined ${$objname;} and $${$objname;}{'*Debug'} > 1 || $DBIx::Recordset::Debug > 1
648 0 0 if (defined ${$objname;} and ref ${$objname;} and UNIVERSAL::isa(${$objname;}, 'DBIx::Recordset'))
655 0 0 if (defined %{$objname;})
658 0 0 if $obj
664 0 0 if defined ${$objname;} and ref ${$objname;}
678 0 0 if (defined $$self{'*StHdl'})
681 0 0 if $$self{'*Debug'} > 3
687 0 0 if (defined $$self{'*DBHdl'} and $$self{'*MainHdl'})
690 0 0 if $$self{'*Debug'} > 3
696 0 0 if $$self{'*Debug'} > 1
719 0 0 if $$self{'*Debug'} > 2
722 0 0 if not $orgerr and $@
723 0 0 if $orgerr and $@
753 0 0 unless $$self{'*DBHdl'}{'AutoCommit'}
768 0 0 unless $$self{'*DBHdl'}{'AutoCommit'}
783 0 0 defined $value ? :
0 0 if $$self{'*Debug'} > 3
784 0 0 if ($$self{'*Debug'} > 2 and ref $value eq 'HASH')
797 0 0 if (keys %$value) { }
811 0 0 if exists $$self{'*Default'}
836 0 0 if $data
885 0 0 if $tab =~ /^$_[0]{'*TableFilter'}(.*?)$/
955 0 0 if ($$self{'*LinkName'} < 2) { }
986 0 0 unless $sth
1005 0 0 unless defined $links
1006 0 0 unless defined $linkname
1023 0 0 unless defined $field
1027 0 0 unless (exists $$self{'*MainFields'})
1079 0 0 $DBIx::Recordset::PreserveCase ? :
1081 0 0 unless (defined($meta = $DBIx::Recordset::Metadata{$metakey}))
1087 0 0 if defined $value
1090 0 0 if exists $$meta{$key}
1095 0 0 unless defined($meta = $DBIx::Recordset::Metadata{$metakey})
1166 0 0 if (ref $self) { }
1168 0 0 if (wantarray) { }
1179 0 0 if (wantarray) { }
1206 0 0 unless $$self{'*WriteMode'} & 1
1210 0 0 if (defined $bind_values) { }
1236 0 0 unless $$self{'*WriteMode'} & 2
1240 0 0 if (defined $bind_values) { }
1265 0 0 unless $$self{'*WriteMode'} & 4
1266 0 0 unless $where or $$self{'*WriteMode'} & 8
1270 0 0 if (defined $bind_values) { }
1272 0 0 $where ? :
1276 0 0 $where ? :
1311 0 0 if (defined $$self{'*StHdl'})
1314 0 0 if $$self{'*Debug'} > 3
1330 0 0 $order ? :
1331 0 0 $group ? :
1332 0 0 $expr ? :
1337 0 0 if ($$self{'*Query'}) { }
1345 0 0 if ($$self{'*Debug'} > 1)
1354 0 0 if $makesql
1360 0 0 if (defined $sth)
1370 0 0 if defined $$bind_values[$i] and defined $$bind_types[$i] and $$Numeric{$$bind_types[$i]}
1375 0 0 defined $bt && $bt <= &DBI::SQL_CHAR() ? :
1385 0 0 if ($rc) { }
1387 0 0 $DBIx::Recordset::PreserveCase ? :
1392 0 0 if $$self{'*Debug'}
1393 0 0 if $$self{'*Debug'} == 1
1407 0 0 if ($ofunc and $names)
1421 0 0 if ($$self{'*LongNames'}) { }
1423 0 0 if ($fields eq '*') { }
1431 0 0 /\./ ? :
1432 0 0 if lc $allfields[0] eq 'distinct'
1460 0 0 if $DBIx::Recordset::FetchsizeWarn == 2
1461 0 0 if $DBIx::Recordset::FetchsizeWarn == 1
1464 0 0 unless defined $$self{'*FetchMax'}
1467 0 0 $max < $sel ? :
1485 0 0 if $$self{'*Debug'} > 3
1489 0 0 if defined $$self{'*LastRecordFetch'} and $fetch == $$self{'*LastRecordFetch'} and $$self{'*LastRecord'}
1502 0 0 if ($row <= $fetch and not $$self{'*EOD'} and defined $sth) { }
1506 0 0 unless defined $sth
1507 0 0 if defined $max and $row > $max
1513 0 0 if ($$self{'*StoreAll'}) { }
1517 0 0 unless ($arr = $sth->fetchrow_arrayref)
1521 0 0 if $$self{'*Debug'} > 3
1530 0 0 if defined $max and $row > $max
1537 0 0 unless ($sth->fetchrow_arrayref)
1541 0 0 if $$self{'*Debug'} > 3
1546 0 0 if defined $max and $row > $max
1552 0 0 if ($row == $fetch and not $$self{'*EOD'})
1557 0 0 if ($arr) { }
1561 0 0 if ($$self{'*TieRow'}) { }
1572 0 0 if ($nf)
1574 0 0 if (not ref $nf) { }
1580 0 0 unless $$dat{uc $_}
1584 0 0 if $$self{'*PrimKey'}
1595 0 0 if $$self{'*Debug'} > 3
1605 0 0 if not defined $max or $fetch <= $max
1606 0 0 if (ref $dat eq 'ARRAY') { }
1626 0 0 if $dat
1628 0 0 $obj ? :
1633 0 0 if ($row == $fetch + 1 and not $$self{'*EOD'})
1638 0 0 if $sth
1641 0 0 if ($arr)
1647 0 0 if (defined $max and $orgrow > $max or not $arr)
1650 0 0 if $sth
1651 0 0 if $$self{'*Debug'} > 3
1659 0 0 defined $dat ? :
0 0 if $$self{'*Debug'} > 3
1691 0 0 if defined $rec or not $new
1709 0 0 if $_[0]{'*LastRow'} == 0
1727 0 0 if $lr < 0
1728 0 0 if defined $$self{'*LastRecord'}
1732 0 0 if defined $rec or not $new
1748 0 0 if $_[0]{'*LastRow'}-- == 0
1764 0 0 if $lr = $$self{'*LastRecord'}
1768 0 0 if defined $rec or not $new
1810 0 0 if DBIx::Compat::GetItem($drv, 'SQLJoinOnly2Tabs')
1818 0 0 if (defined $fields and not $fields =~ /^\s*\*\s*$/) { }
1822 0 0 /\./ || !$$tab4f{$_} ? :
1831 0 0 if ($nf) { }
1833 0 0 if (ref $nf eq 'ARRAY') { }
1845 0 0 unless $namefields{$fn}
1863 0 0 if $numtabs <= 0
1864 0 0 unless $linkname = $self->Link4Field($fn)
1865 0 0 unless $link = $self->Link($linkname)
1867 0 0 if $$link{'!DataSource'} or $$link{'!Table'} eq $$self{'!Table'}
1871 0 0 if (not $$link{'!LinkedBy'} and $nf) { }
0 0 elsif ($debug > 2 and not $$link{'!LinkedBy'}) { }
1874 0 0 if (ref $nf) { }
1878 0 0 unless (exists $fields{"$$link{'!Table'}.$_"})
1885 0 0 if $debug > 2
1892 0 0 unless (exists $fields{"$$link{'!Table'}.$nf"})
1899 0 0 if $debug > 2
1904 0 0 unless exists $tables{$$link{'!Table'}}
1918 0 0 if ($leftjoin == 1) { }
0 0 elsif ($leftjoin == 2) { }
0 0 elsif ($leftjoin == 3) { }
0 0 elsif ($leftjoin == 4) { }
1927 0 0 $tabrel ? :
1933 0 0 $tabrel ? :
1945 0 0 $tabrel ? :
2007 0 0 ref $xbind_values eq 'ARRAY' ? :
2009 0 0 if (not ref $where) { }
0 0 elsif (exists $$where{'$where'}) { }
0 0 elsif (defined($primkey = $$self{'*PrimKey'}) and defined $$where{$primkey} and !defined($$where{"*$primkey"}) || $$where{"*$primkey"} eq '=' and not ref $$where{$primkey}) { }
2012 0 0 if ($Debug > 2)
2017 0 0 if (exists $$where{'$values'})
2019 0 0 if (ref $xbind_values eq 'ARRAY') { }
2028 0 0 if ($Debug > 2)
2037 0 0 if $linkname and not $primkey =~ /\./
2042 0 0 if $if
2045 0 0 if ($Debug > 2)
2085 0 0 if $ignore > 1 and defined $val and $val eq ''
2087 0 0 defined $val ? :
0 0 if ($Debug > 2)
2090 0 0 if (substr($key, 0, 5) eq '$expr') { }
2092 0 0 if $val
2096 0 0 if ($type =~ /^(\w|\\|\+|\'|\#|\s)$/ and not $ignore && !defined($val))
2098 0 0 if ($type eq '+') { }
2101 0 0 if ($Debug > 3)
2110 0 0 if ($Debug > 3)
2112 0 0 $DBIx::Recordset::PreserveCase ? :
0 0 unless (defined $$Quote{$DBIx::Recordset::PreserveCase ? $field : lc $field})
2114 0 0 if ($Debug > 2)
2120 0 0 if $linkname and not $field =~ /\./
2122 0 0 if ($uright = $DBIx::Recordset::unaryoperators{lc $op}) { }
0 0 elsif ($type eq '\\') { }
0 0 elsif (defined $val) { }
0 0 elsif ($op eq '<>') { }
2124 0 0 if ($uright == 1) { }
2145 0 0 if ($Debug > 3)
2148 0 0 if ($fieldexp eq '')
2156 0 0 $DBIx::Recordset::PreserveCase ? :
2159 0 0 if ($type eq '\\' or $type eq '#' or $type eq q['])
2164 0 0 $DBIx::Recordset::PreserveCase ? :
2167 0 0 if ($type eq q[']) { }
0 0 elsif ($type eq '#') { }
2183 0 0 if (not defined $$Quote{$lkey} and $type ne '\\')
2185 0 0 if ($Debug > 3)
2189 0 0 if ($Debug > 3)
2193 0 0 if $linkname and $type ne '\\' and not $key =~ /\./
2195 0 0 if ($uright = $DBIx::Recordset::unaryoperators{lc $op}) { }
0 0 elsif ($type eq '\\') { }
0 0 elsif (defined $val) { }
0 0 elsif ($op eq '<>') { }
2197 0 0 if ($uright == 1) { }
2216 0 0 if ($Debug > 3)
2220 0 0 if ref $op eq 'ARRAY'
2223 0 0 if (not defined $val) { }
0 0 elsif ($val eq '') { }
2229 0 0 if (ref $val eq 'ARRAY') { }
2231 0 0 if ($if) { }
2238 0 0 if ($if) { }
2247 0 0 if ($hasIn and @mvals > 1 and not @multop and $op eq '=' and not $$where{'$valueconj'} and $type ne '+') { }
2256 0 0 $j++ ? :
2267 0 0 if (@multop) { }
2278 0 0 if ($vexp)
2280 0 0 if ($Debug > 3)
2287 0 0 if ($Debug > 3 and $lexpr ne $expr)
2296 0 0 if ($tabrel and not $sub)
2298 0 0 if ($expr) { }
2323 0 0 unless ref $data eq 'ARRAY'
2327 0 0 defined $rowdata ? :
0 0 if $$self{'*Debug'} > 4
2329 0 0 unless ref $rowdata eq 'HASH' and eval { do { tied(%$rowdata)->isa('DBIx::Recordset::Row') } }
2330 0 0 if tied(%$rowdata)->Dirty
2348 0 0 if $$self{'*InFlush'}
2358 0 0 if $dbg > 2
2364 0 0 if (defined $$self{'*StHdl'})
2367 0 0 if $$self{'*Debug'} > 3
2378 0 0 ref $dat eq 'HASH' ? :
2379 0 0 if (defined $obj)
2383 0 0 unless eval { do { local $SIG{'__DIE__'}; $obj->Flush } }
2389 0 0 if $release
2392 0 0 if $err
2397 0 0 if $@
2418 0 0 unless (ref $self)
2421 0 0 unless $self = $DBIx::Recordset::newself
2438 0 0 if ($$self{'*GetSerialPreInsert'}) { }
0 0 elsif ($$self{'*SeqObj'}) { }
2441 0 0 if ref $val eq 'SCALAR'
2442 0 0 unless (defined $val)
2454 0 0 if ref $val eq 'SCALAR'
2455 0 0 unless (defined $val)
2466 0 0 if ref $val eq 'SCALAR'
2469 0 0 if $if
2470 0 0 unless defined $val
2471 0 0 $DBIx::Recordset::PreserveCase ? :
0 0 if ($key =~ /^\\(.*?)$/) { }
0 0 elsif (defined $$Quote{$DBIx::Recordset::PreserveCase ? $key : lc $key}) { }
2481 0 0 $DBIx::Recordset::PreserveCase ? :
2485 0 0 if (@qvals == 1 and $insertserial and exists $$data{$insertserial})
2490 0 0 if ($#qvals > -1)
2494 0 0 if exists $$data{$key}
2496 0 0 if $if
2497 0 0 unless defined $val
2498 0 0 $DBIx::Recordset::PreserveCase ? :
0 0 if ($key =~ /^\\(.*?)$/) { }
0 0 elsif (defined $$Quote{$DBIx::Recordset::PreserveCase ? $key : lc $key}) { }
2508 0 0 $DBIx::Recordset::PreserveCase ? :
2515 0 0 if ($#qvals > -1) { }
2522 0 0 if $$self{'*GetSerialPostInsert'}
2532 0 0 $DBIx::Recordset::newself ? :
2550 0 0 unless (ref $self)
2553 0 0 unless $self = $DBIx::Recordset::newself
2571 0 0 if ($irfunc)
2573 0 0 if not exists $$data{$_}
2577 0 0 if (defined($primkey = $$self{'*PrimKey'})) { }
2580 0 0 if ref $val eq 'SCALAR'
2582 0 0 if (defined $val and not $where) { }
0 0 elsif (ref $where eq 'HASH' and $val eq $$where{$primkey}) { }
2605 0 0 if $key eq $primkey
2606 0 0 if ref $val eq 'SCALAR'
2609 0 0 defined $val ? :
0 0 $if ? :
0 0 if $dbg
2610 0 0 if $if
2611 0 0 $DBIx::Recordset::PreserveCase ? :
0 0 if ($key =~ /^\\(.*?)$/) { }
0 0 elsif (defined $$Quote{$DBIx::Recordset::PreserveCase ? $key : lc $key}) { }
2620 0 0 $DBIx::Recordset::PreserveCase ? :
2626 0 0 if ($datacnt)
2630 0 0 if (defined $where) { }
2639 0 0 $DBIx::Recordset::newself ? :
2661 0 0 unless (ref $self)
2664 0 0 unless $self = $DBIx::Recordset::newself
2668 0 0 if $$self{'*Debug'} > 2
2670 0 0 if (not $rc or $DBI::rows <= 0)
2674 0 0 $DBIx::Recordset::newself ? :
2694 0 0 unless (ref $self)
2697 0 0 unless $self = $DBIx::Recordset::newself
2707 0 0 $DBIx::Recordset::newself ? :
2723 0 0 if ref $seen ne 'HASH'
2726 0 0 unless (ref $self)
2729 0 0 unless $self = $DBIx::Recordset::newself
2732 0 0 unless $$self{'*WriteMode'} & 4
2740 0 0 unless $expr or $$self{'*WriteMode'} & 8
2752 0 0 if ($od = $$link{'!OnDelete'})
2754 0 0 unless ($selected)
2767 0 0 if (exists $$rec{$$link{'!MainField'}}) { }
2775 0 0 unless defined $$link{'!DataSource'}
2776 0 0 defined $mv ? :
0 0 if $$self{'*Debug'} > 1
2779 0 0 if ($od & 1) { }
0 0 elsif ($od & 2) { }
2782 0 0 if (not $$seen{$seenkey}) { }
2789 0 0 if $$self{'*Debug'} > 1
2803 0 0 $DBIx::Recordset::newself ? :
2828 0 0 unless (ref $self)
2831 0 0 unless $self = $DBIx::Recordset::newself
2839 0 0 $DBIx::Recordset::newself ? :
2868 0 0 unless (ref $self)
2871 0 0 unless $self = $DBIx::Recordset::newself
2879 0 0 if defined $$fdat{'$first'} or defined $start and $start < 0
2880 0 0 if defined $max and $max < 1
2882 0 0 if (defined $$fdat{'$prev'}) { }
0 0 elsif (defined $$fdat{'$next'}) { }
0 0 elsif (defined $$fdat{'$goto'}) { }
2885 0 0 if ($start < 0)
2892 0 0 if ($start < 0)
2897 0 0 if (defined $max and not $$fdat{'$last'})
2900 0 0 if ($LimitOffset)
2902 0 0 $$fdat{'$last'} ? :
2903 0 0 if $append
2914 0 0 if ($rc and $$fdat{'$last'})
2925 0 0 if defined $max
2928 0 0 $DBIx::Recordset::newself ? :
2955 0 0 unless (ref $self)
2958 0 0 unless $self = $DBIx::Recordset::newself
2962 0 0 if ($$self{'*Debug'} > 2)
2963 0 0 $$fdat{'=search'} ? :
0 0 $$fdat{'=update'} ? :
0 0 $$fdat{'=insert'} ? :
0 0 $$fdat{'=empty'} ? :
0 0 $$fdat{'=delete'} ? :
2968 0 0 if (defined $$fdat{'=search'}) { }
2976 0 0 if defined $$fdat{'=update'} and $rc eq '-'
2977 0 0 if (defined $$fdat{'=insert'} and $rc eq '-')
2980 0 0 if (defined $rc and $$self{'*LastSerial'})
2984 0 0 $DBIx::Recordset::newself ? :
2987 0 0 if defined $$fdat{'=delete'} and $rc eq '-'
2988 0 0 if not defined $$fdat{'=empty'} and defined $rc
2989 0 0 if defined $$fdat{'=empty'} and $rc eq '-'
2992 0 0 $DBIx::Recordset::newself ? :
3042 0 0 if $ignoremax
3075 0 0 if (ref $textprev eq 'HASH')
3093 0 0 if defined $HTML::Embperl::escmode and $HTML::Embperl::escmode & 1 or defined $Embperl::escmode and $Embperl::escmode & 1
3098 0 0 if ($fdat)
3102 0 0 if (substr($k, 0, 1) eq '\\')
3106 0 0 if ($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 if ($start > 0 and $textfirst)
3118 0 0 if ($start > 0 and $textprev)
3122 0 0 if ($textgoto)
3127 0 0 if ($more > 0 and $textnext)
3131 0 0 if ($more > 0 and $textlast)
3166 0 0 if (ref $arg eq 'HASH') { }
0 0 elsif (ref $arg eq 'DBIx::Recordset') { }
3168 0 0 unless $rs = 'DBIx::Recordset'->SetupObject($arg)
3219 0 0 if (defined $rec)
3222 0 0 if $obj = tied %$rec
3234 0 0 if (ref $_[2] eq 'ARRAY') { }
3244 0 0 if $i > $#$dat
3263 0 0 if $obj
3277 0 0 if $obj
3315 0 0 if defined $$self{'*Recordset'}
3319 0 0 if $$self{'*Recordset'}{'*Debug'} > 3
3322 0 0 if not $orgerr and $@
3323 0 0 if $orgerr and $@
3351 0 0 $where eq '*' ? :
0 0 unless $rs->Search($where eq '*' ? undef : $where)
3352 0 0 unless my $primkey = $$rs{'*PrimKey'}
3356 0 0 if ($merge and exists $keyhash{$pk}) { }
3358 0 0 if (tied %{$keyhash{$pk};})
3372 0 0 if $$self{'*Expires'} > 0
3391 0 0 if (ref $$self{'*Expires'} eq 'CODE') { }
0 0 elsif (defined $$self{'*ExpiresTime'}) { }
3397 0 0 if $prefetch
3418 0 0 if (ref $arg eq 'HASH') { }
0 0 elsif (ref $arg eq 'DBIx::Recordset') { }
3427 0 0 unless $rs = 'DBIx::Recordset'->SetupObject($arg)
3444 0 0 if $$self{'*PreFetch'}
3464 0 0 unless defined $fetch
3468 0 0 if ($$self{'*PreFetch'}) { }
3476 0 0 defined $fetch ? :
0 0 if $$rs{'*Debug'} > 3
3478 0 0 if (not defined $$rs{'*LastKey'} or $fetch ne $$rs{'*LastKey'}) { }
3480 0 0 unless $rs->SQLSelect("$$rs{'*PrimKey'} = ?", undef, undef, undef, undef, [$fetch], [$$rs{'*Type4Field'}{$$rs{'*PrimKey'}}])
3485 0 0 if ($merge and $rs->MoreRecords)
3499 0 0 if ($$self{'*LastMergeRec'}) { }
3506 0 0 defined $h ? :
0 0 if $$rs{'*Debug'} > 3
3525 0 0 defined $key ? :
0 0 defined $value ? :
0 0 if $$rs{'*Debug'} > 3
3527 0 0 if !ref($value) eq 'HASH'
3530 0 0 if $$self{'*PreFetch'}
3543 0 0 defined $key ? :
3559 0 0 if ($$self{'*PreFetch'})
3569 0 0 unless $rs->SQLSelect
3571 0 0 unless my $dat = $rs->First(0)
3574 0 0 if ($$rs{'*Debug'} > 3)
3576 0 0 defined $key ? :
3589 0 0 if ($$self{'*PreFetch'})
3597 0 0 unless my $dat = $rs->Next
3600 0 0 if ($$rs{'*Debug'} > 3)
3602 0 0 defined $key ? :
3614 0 0 if ($$self{'*PreFetch'})
3635 0 0 unless $rs->SQLDelete("$$rs{'*PrimKey'} = ?", [$key], [$$rs{'*Type4Field'}{$$rs{'*PrimKey'}}])
3648 0 0 unless $rs->SQLDelete('')
3678 0 0 if defined $$self{'*Recordset'}
3682 0 0 if $$self{'*Recordset'}{'*Debug'} > 3
3685 0 0 if not $orgerr and $@
3686 0 0 if $orgerr and $@
3738 0 0 if (ref $names eq 'HASH') { }
3743 0 0 if ($new) { }
3751 0 0 $DBIx::Recordset::PreserveCase ? :
3762 0 0 $DBIx::Recordset::PreserveCase ? :
3772 0 0 if ($$rs{'*KeepFirst'}) { }
0 0 elsif ($linkname < 2) { }
0 0 elsif ($linkname < 3) { }
3776 0 0 if ($dat)
3781 0 0 $DBIx::Recordset::PreserveCase ? :
3784 0 0 $$ofunc[$i] ? :
0 0 unless exists $$data{$hkey}
3791 0 0 $DBIx::Recordset::PreserveCase ? :
0 0 $$ofunc[$i] ? :
0 0 if $dat
3801 0 0 $DBIx::Recordset::PreserveCase ? :
3803 0 0 $of ? :
3804 0 0 $$ofunc[$_] ? :
0 0 if $#$r > 0 or $$r[0] != $i
3815 0 0 $DBIx::Recordset::PreserveCase ? :
0 0 $$ofunc[$_] ? :
3824 0 0 unless ($new)
3828 0 0 if ($pk and exists $$data{$pk}) { }
3855 0 0 if $$rs{'*Debug'} > 3
3857 0 0 if ($$dat{$key} ne $value or defined $$dat{$key} != defined $value)
3870 0 0 unless $key
3874 0 0 unless (defined $data)
3876 0 0 if ($key eq '!Name') { }
0 0 elsif (defined($link = $$rs{'*Links'}{$key})) { }
3879 0 0 unless (ref $nf)
3884 0 0 unless $$self{'*data'}{uc $_}
3891 0 0 if (exists $$dat{$$link{'!MainField'}}) { }
3899 0 0 if ($$link{'!UseHash'}) { }
3902 0 0 unless ($linkset)
3906 0 0 unless defined $$link{'!DataSource'}
3908 0 0 defined $mv ? :
0 0 if $$rs{'*Debug'} > 3
3917 0 0 if (not $linkset) { }
3922 0 0 unless defined $$link{'!DataSource'}
3923 0 0 defined $mv ? :
0 0 if $$rs{'*Debug'} > 3
3928 0 0 if ($$link{'!Cache'})
3941 0 0 if $of
3945 0 0 defined $key ? :
0 0 defined $data ? :
0 0 if ($rs and $$rs{'*Debug'} > 3)
4009 0 0 unless $rs
4011 0 0 if ($$self{'*dirty'})
4014 0 0 if $$rs{'*Debug'} > 3
4017 0 0 if ($$self{'*new'}) { }
4025 0 0 if $pk and not exists $$dat{$pk}
4027 0 0 if (not exists $$self{'*PrimKeyOrgValue'}) { }
0 0 elsif (ref($pko = $$self{'*PrimKeyOrgValue'}) eq 'HASH') { }
4039 0 0 if ($rc != 1 and $rc ne '')
4041 0 0 if $$rs{'*Debug'}
4061 0 0 if ($lrs = $$self{'*data'}{$k})
4065 0 0 if $rname eq 'DBIx::Recordset'
4088 0 0 if $DBIx::Recordset::Debug > 2 or $$self{'*Recordset'}{'*Debug'} > 3
4093 0 0 if (not $orgerr and $@) { }
0 0 elsif ($orgerr and $@) { }