| line |
true |
false |
branch |
|
299
|
0 |
1 |
if ($self->{'debug'}) |
|
308
|
0 |
0 |
@_ > 1 ? : |
|
312
|
0 |
0 |
if (ref $v eq 'CODE') { } |
|
|
0 |
0 |
elsif ($v =~ /^%(.+)/ and exists $message->{$1}) { } |
|
321
|
0 |
0 |
if ($self->{'debug'}) |
|
325
|
0 |
0 |
unless $self->connect |
|
327
|
0 |
0 |
unless ($self->{'sth'}->execute(@values)) |
|
331
|
0 |
0 |
unless ($self->{'persistent'} or $self->{'dbi_handle'}) |
|
332
|
0 |
0 |
unless $self->disconnect |
|
341
|
0 |
0 |
if ($self->{'persistent'} and $self->{'dbh'}) |
|
342
|
0 |
0 |
if ($self->{'use_ping'}) { } |
|
343
|
0 |
0 |
if ($self->{'dbh'}->ping) |
|
347
|
0 |
0 |
unless $self->{'dbh'}->do($self->{'pingstmt'}) |
|
348
|
0 |
0 |
unless $@ |
|
352
|
0 |
0 |
if ($self->{'debug'}) |
|
358
|
0 |
0 |
if ($self->{'dbi_handle'}) { } |
|
361
|
0 |
0 |
if ($self->{'dbi'}) |
|
366
|
0 |
0 |
unless $dbh = 'DBI'->connect(@{$$self{'cstr'};}) |
|
371
|
0 |
0 |
unless my $sth = $dbh->prepare($self->{'statement'}) |
|
382
|
0 |
1 |
if ($self->{'sth'}) |
|
384
|
0 |
0 |
unless $self->{'sth'}->finish |
|
389
|
0 |
1 |
if ($self->{'dbh'}) |
|
390
|
0 |
0 |
if ($self->{'debug'}) |
|
395
|
0 |
0 |
unless $self->{'dbh'}->disconnect |
|
409
|
0 |
1 |
if ($@) |
|
420
|
0 |
1 |
unless ($opts) |
|
518
|
0 |
0 |
unless ($options{'table'} or $options{'statement'}) |
|
525
|
0 |
2 |
if (defined $options{'data_source'}) { } |
|
|
2 |
0 |
elsif ($options{'driver'} and $options{'database'} || $options{'dbname'}) { } |
|
|
0 |
0 |
elsif (not defined $options{'dbi_handle'}) { } |
|
530
|
2 |
0 |
if ($options{'database'}) { } |
|
536
|
2 |
0 |
if ($options{'host'}) |
|
538
|
2 |
0 |
if ($options{'port'}) |
|
546
|
2 |
0 |
if ($options{'user'}) |
|
548
|
2 |
0 |
if ($options{'password'}) |
|
558
|
2 |
0 |
unless (ref $options{'values'}) |
|
562
|
2 |
0 |
unless ($options{'statement'}) |
|
566
|
0 |
2 |
if (ref $options{'columns'}) { } |
|
585
|
0 |
2 |
if ($options{'driver'} and $options{'driver'} =~ /oracle/i) { } |