| blib/lib/DBD/Sprite.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 30 | 123 | 24.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 913 | 0 | 0 | 0 | defined $resptr->{'sprite_insertid'} and $resptr->{'sprite_insertid'} =~ /\d$/ |
| 923 | 0 | 0 | 0 | $lastseq =~ /\d$/ and $lastseq > 0 |
| 1006 | 3 | 6 | 2 | not $joininfo and $sqlstr =~ /from\s+([\w\.\,\s]+)/iso |
| 1041 | 0 | 3 | 8 | ref $resptr->{'sprite_SpritesOpen'} and ref $resptr->{'sprite_SpritesOpen'}{$fid} |
| 1271 | 2 | 0 | 0 | $dB->FETCH('AutoCommit') and $dB->FETCH('Warn') |
| 1293 | 0 | 0 | 0 | not shift() and $dB->FETCH('AutoCommit') |
| 0 | 0 | 0 | not shift() and $dB->FETCH('AutoCommit') and $dB->FETCH('Warn') | |
| 1317 | 2 | 0 | 0 | $val == 1 and not $dbh->FETCH('AutoCommit') |
| 1548 | 0 | 13 | 0 | $params and scalar @$params != $numParam |
| 1862 | 0 | 0 | 12 | defined $retval and $retval |
| 1944 | 2 | 6 | 0 | $row and scalar @$row |
| line | l | !l | condition |
|---|---|---|---|
| 676 | 1 | 0 | $dbuser ||= '' |
| 677 | 1 | 0 | $dbpswd ||= '' |
| 698 | 0 | 1 | $ENV{'SPRITE_HOME'} ||= '' |
| 719 | 0 | 0 | $pgmhome ||= '.' |
| 772 | 0 | 1 | $attr->{'AutoCommit'} || 0 |
| 791 | 1 | 0 | $attr->{'sprite_read'} || $attr->{'sprite_field'} || eval qq[return("$dbinputs[3]");] || '::' |
| 792 | 1 | 0 | $attr->{'sprite_write'} || $attr->{'sprite_field'} || eval qq[return("$dbinputs[3]");] || '::' |
| 793 | 1 | 0 | $attr->{'sprite_record'} || eval qq[return("$dbinputs[4]");] || "\n" |
| 795 | 0 | 1 | $attr->{'AutoCommit'} || 0 |
| 797 | 0 | 1 | $attr->{'AutoCommit'} || 0 |
| 889 | 0 | 0 | shift @_ || '' |
| 890 | 0 | 0 | shift() || '' |
| 891 | 0 | 0 | shift() || '' |
| 893 | 0 | 0 | $dbname || '' |
| 0 | 0 | $host || '' | |
| 0 | 0 | $port || '' | |
| 1367 | 2 | 1 | $csr->execute(@bind_values) || undef |
| 1586 | 1 | 0 | $spriteref->{'lasterror'} || -601 |
| 1 | 0 | $spriteref->{'lastmsg'} || 'Unknown Error!' | |
| 1845 | 0 | 0 | $resv[0] || '0E0' |
| 1946 | 6 | 0 | $sth->{'Database'}->FETCH('LongReadLen') || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 720 | 0 | 0 | 0 | $pgmhome =~ m[\/$] or $dbfid =~ m[^\/] |
| 764 | 1 | 0 | 0 | $dbinputs[2] eq $crypted or $@ =~ /excessive paranoia/ |
| 887 | 0 | 0 | 0 | $command eq 'createdb' || $command eq 'dropdb' |
| 1020 | 0 | 0 | 0 | $joinfid[$i] ||= $joinfids[$i] |
| 1061 | 0 | 3 | 0 | $attribs->{'sprite_read'} || $attribs->{'sprite_field'} || $resptr->FETCH('sprite_dbfdelim') |
| 1062 | 0 | 3 | 0 | $attribs->{'sprite_write'} || $attribs->{'sprite_field'} || $resptr->FETCH('sprite_dbwdelim') |
| 1063 | 0 | 3 | 0 | $attribs->{'sprite_record'} || $attribs->{'sprite_field'} || $resptr->FETCH('sprite_dbrdelim') |
| 1144 | 0 | 0 | 0 | $whereclause =~ s/\s+order\s+by\s*(.*)//iso or $joinsql[$jj] =~ s/\s+order\s+by\s*(.*)//iso |
| 1284 | 0 | 0 | 3 | not defined $commitResult or $commitResult <= 0 |
| 1702 | 0 | 0 | 0 | $tbl eq $joinfids->[1] or $tbl eq $joinalii->[1] |
| 1739 | 0 | 0 | 0 | $joinalii->[0] || $joinfids->[0] |
| 0 | 0 | 0 | $joinalii->[1] || $joinfids->[1] | |
| 1799 | 0 | 0 | 0 | !($cond =~ /\S/o) || eval $cond |
| 1826 | 0 | 0 | 0 | !($cond =~ /\S/o) || eval $cond |
| 1956 | 0 | 0 | 0 | $row->[$i] eq $t or $sth->{'Database'}->FETCH('LongTruncOk') |
| 1980 | 0 | 0 | 0 | return $sth->FETCH('driver_rows') or $sth->FETCH('sprite_rows') |