line |
true |
false |
branch |
80
|
0 |
1 |
if $guts->{'dbh'} and not $guts->{'dbh'}{'RaiseError'}
|
85
|
0 |
1 |
if exists $dbi_attr->{'RaiseError'} and not $dbi_attr->{'RaiseError'}
|
117
|
17 |
1 |
if $self->{'dbh'} and eval {
|
120
|
0 |
1 |
unless my $dbh = "DBI"->connect(@{$$self{"dbi_args"};})
|
151
|
2 |
6 |
unless defined wantarray
|
154
|
0 |
6 |
unless defined $lockstring and length $lockstring
|
159
|
0 |
6 |
unless $expires > 0 and $expires == int $expires
|
186
|
1 |
0 |
$dbh->err && $dbh->errstr ? :
|
|
1 |
5 |
unless $rows and $rows == 1
|
208
|
6 |
8 |
unless $time
|