Branch Coverage

blib/lib/CGI/Session/Driver/odbc.pm
Criterion Covered Total %
branch 0 26 0.0


line true false branch
16 0 0 if ($$self{'DataSource'} and not $$self{'DataSource'} =~ /^dbi:ODBC/)
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'})