| line |
true |
false |
branch |
|
16
|
0 |
0 |
if ($$self{'DataSource'} and not $$self{'DataSource'} =~ /^dbi:Oracle/) |
|
31
|
0 |
0 |
unless $sid and $datastr |
|
36
|
0 |
0 |
unless (defined $sth) |
|
41
|
0 |
0 |
unless $sth->execute($sid) |
|
43
|
0 |
0 |
if ($sth->fetchrow_array) { } |
|
45
|
0 |
0 |
unless _run_sql($dbh, 'update ' . $self->table_name . " set $$self{'DataColName'}=? where $$self{'IdColName'}=?", $datastr, $sid) |
|
50
|
0 |
0 |
unless _run_sql($dbh, 'insert into ' . $self->table_name . " ($$self{'DataColName'}, $$self{'IdColName'}) values(?, ?)", $datastr, $sid) |
|
66
|
0 |
0 |
unless my($sth) = $dbh->prepare($sql) |
|
68
|
0 |
0 |
unless $sth->bind_param(1, $datastr) |
|
69
|
0 |
0 |
unless $sth->bind_param(2, $sid) |
|
70
|
0 |
0 |
unless $sth->execute |
|
73
|
0 |
0 |
if $@ |
|
85
|
0 |
0 |
unless (defined $$self{'TableName'}) |