| line |
true |
false |
branch |
|
87
|
0 |
0 |
unless ($arg{'name'})
|
|
93
|
0 |
0 |
if ($arg{'driver'} =~ /ODBC/i) { }
|
|
94
|
0 |
0 |
unless $dbh = 'DBI'->connect("DBI:ODBC:$arg{'dsn'}", $arg{'user'}, $arg{'pass'}, $arg{'attr'})
|
|
99
|
0 |
0 |
unless $dbh = 'DBI'->connect($arg{'dsn'}, $arg{'user'}, $arg{'pass'}, $arg{'attr'})
|
|
120
|
0 |
0 |
if $self->dbh
|
|
139
|
0 |
0 |
unless $self->dbh->do($qry)
|
|
165
|
0 |
0 |
unless my $sth = $self->dbh->prepare($qry)
|
|
166
|
0 |
0 |
unless $sth->execute
|
|
180
|
0 |
0 |
unless return $self->dbh->begin_work
|
|
193
|
0 |
0 |
unless $self->dbh->commit
|
|
206
|
0 |
0 |
unless $self->dbh->rollback
|
|
237
|
0 |
0 |
if (not defined $ret and $self->dbh->err)
|
|
238
|
0 |
0 |
wantarray ? :
|
|
254
|
0 |
0 |
if (not @ret and $self->dbh->err)
|
|
272
|
0 |
0 |
if (not defined $ret and $self->dbh->err)
|
|
273
|
0 |
0 |
wantarray ? :
|
|
290
|
0 |
0 |
if (not defined $ret and $self->dbh->err)
|
|
291
|
0 |
0 |
wantarray ? :
|
|
310
|
0 |
0 |
if (not defined $ret and $self->dbh->err)
|
|
325
|
0 |
0 |
if (not defined $ret and $self->dbh->err)
|
|
326
|
0 |
0 |
wantarray ? :
|
|
342
|
0 |
0 |
wantarray ? :
|
|
358
|
0 |
0 |
if (not defined $ret and $self->dbh->err)
|
|
397
|
0 |
0 |
unless ($level)
|